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Micro-Lisp 2.5: a Lisp interpreter for the Commodore 64! 
Report on CoNIX - a Unix-style enhancement for CP/IVI 3+ 
Great Assignment: Add expression evaluation to BASIC 
Understanding BRK - get debugging duty from the zero byte 
Fast mnemonic-to-opcode conversion '* 
An update to "Shiloh's Raid" " .;* ': ^ ^ : '. 
Stabilizing Tl$ for long-term timing applications • :; 
Memory swapping routines for screens and programs 
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By making available the new Avatex 1200e and SupraModem 2400 we wi!l introduce 

you to high speed communications without a high speed price. 
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I • 300/1200 baud u^nul'ion 

only • Q^][ progress monitoring 

• 2 year warraiUy 

• TOTAL Hayes compalihilily 

Includes frtu liuur uiiil package on-line time and introductory 
subscription to CompuSiirvc {a $29,99 value) 
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nnmher even when turned off 
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• Pro^mmmnl'»lo spoiikt-r 

VuluUlL' 
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su])porl 
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• <^n[ii>.iii caw 

• All status LliD's 

• IUU"'li ( um|iHli!ilr wilh 
Industry standnrct "AT" 
command set 

• Externa! power nupply 



I'rtT Imiiiniil Miliwurr with 
riiih modem purcliaflc. 



RS-232 CABLLS 

• Base price of S15,00 plus 
il.OO per foal 

• Specify computer connector 
gender type* 



Onmilronix Deluxe RS-232 Interface 
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SX M jMkil Pluii 4 [ompul^M 
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' AiiiFtfT 

L jMaLliiEmh 



AMOUNT 



.^.^ Supm J4D0(i| 

^ HSl.l? InirrracoW 
f^iihlraft iH)m Uv eaih 
mkilu^v |iurihH>i'iL wiNi iiiiHlrm 

(IIMVI > t|[k|]i)^r II CAN) 
fiUlMl * I mvtt HUM 
^pfnly "nlf ni Itnulp htt 
ELinipulrF diid 



CANAIHAhi 
& lliLJ^n 
« 1349 vn 

«& I lUO 



US. 

A |]]4,9a - I 

& ll««B « I 

I 

«i I IP - I 

Sub TdIbI I 

71bOnt. ^Icblix I 

TDI4I I 



Nimf 



Aildirjib' 

Cliyi . 
IVov 



Poti«| Ciidf ' 



rhiMie Nil ; 



PAYMI-M (AN Itr MAUli 

Mi>ni;¥ Ordir CJ CHpquel i VIBAH M/C 

CithlliiildcF'i Nunir . ^ . . 

Ilirmiurf . ^__ 



AM profluclfl «hlpp«-{l rutin tnvc^nlory wHhIti 24 hours. Shl|>|ihi|> U F'RFE, 



Transactor volume s issue 6 



Bits 



CI 2H W- Mixk A Mil Ji nni-i 

LmillltlilVHt SkiWH-V MtUIUUl.'i 

CM Jiiysiick Pim I'niiixlinn 
SdMiHhu PtiliIlt l*ilTiiLii] HL'kwda 
Ckniinl U)\ Kihlxm Kehi^kig 
M.¥c<'lJHMyslcnes,., 
FuhiUw.lKilk.T 



Oli.niriJfcfam)dOldl^yk 
RiwulnmOiveF-mTmrmBled 
^nwHiL'UJi'Sili^ I Ji'e]isLii|< i'tilk.y 

Pirmy: llv JflwU: 1 1 niitiiiidH 

liiPnUM'^itC 
hiffuhpiUnlltt-rS^iCHlfi 



News BRK 



10 



1huishl(K>piirz 15 

ii w Pn'jii fir 



61 



New FiPROM Pni^iivinifi 

TitfSnitinnihOsiitfUtCi:!)* 

NewKASKluiGl-OS 

ftseiikinF-ktIniiiiLsrmjilue 
\iS-l\2 iiiieil.t^ f« 
per loOiUh Bids mii'iline 

l1k.-.SUiik'tEtmni'uViittiiiih|^|ii^ 1^11111 
HijiiiJi^U lisluim iuijul^ 



Start Address 



ASijijlul M.LiuiU^ 



Cellular Automata 
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CP/M + CoNlX = CP/M Plus+ 
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Great Assignment! 



AuUinlIlllLrA|>l^hHhllll-'VLlluilllHI 
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Micro-LLsp Version 25 
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Signs of Maturity 



You may have noticed thai this issue is a little thinner ihan 
usual - 64 pages instead of the customary 80. This feature is 
available for this issue only, and will not be repeated again in 
the near future. You may have also noticed that this issue is a 
few weeks late. This relatively minor glitch in the course of 
the magazine's seven year hi^^tory comes as a result of some 
not-so-minor internal changes. 

Every Tvansacior since Volume 4 Issue I almost five years 
ago has been produced using professional typesetting equip- 
menl. with aTl the typesetting work done by Karl Hildon, 
founder and long-time Ed\iov-\w-C\\\^f oi Tramaaor. This is- 
sue is the first created without the benefit of Karl's assistance; 
he has recently icft the company to pursue other interesls. 
Events leading up to Karfs resignation happened quickly, and 
all of a sudden we had a late issue on our hands, with no ap- 
parent way to produce it. 

The fact that you are reading this now gives away the happy 
ending to this lale, but the story is still worth telling, because 
our leap from editing to typesetting and final production is a 
success story that says a lot about the maturity of present mi- 
crocomputer technology. The ease with which we made this 
leap would have been unheard of just a few years ago, and it's 
worth looking at what made it possible in the current techno- 
logical climate. 

At the time we were faced with creating the magazine, we 
knew nothing about "Desktop Publishing" programs or laser 
printers, and were only vaguely aware of a standard protocol 
for output devices called PostScript®. Within 24 hours of that 
terror-filled moment, we were creating pages as you see them 
here (almost), using our friendly 3 1/2 megabyte Amiga 2000 
at the office. Not only can we set text as well as before, but 
we are able to do things that were previously difficult or im- 
possible, or things that our printer had to do for us. 

When wc learned a bit about PostScript, we started realizing 
how little we would have to give up in the quality of the mag- 
azine. PostScript is a language that Desktop Publishing pro- 
grams can use to speak to output devices, like laser printers 
and phototype setters. The initial appeal of PostScript to us 
was that it was a standard, so we couJd get any program that 



spoke PostScript and plug it in to any output device that un- 
derstood it. To our delight, we found PostScript to be power- 
ful and high-level enough that many complicated images can 
be created quite easily directly in the language. 

After learning a bit about PostScript and buying a laser print- 
er came the big step: software. Our choices were limited to 
PostScript-compatible programs available on the Amiga, 
which left one obvious choice: Gold Disk's Professional 
Page, just released. Fortunately, that wasn^t a severe limita- 
tion, because the quality of the copy it produces is close 
enough to a professional system that it isn't an issue (al- 
though a 300 DPI laser printer doesn't do justice to its capa- 
bilities). Just as important, the program is extremely easy to 
learn and use, which was a major factor in us getting up and 
running so soon. 

The only hurdle left between our quick'nMirty homemade 
type -shop and a professional system was the laser printer's 
less-Ihan-perfect resolution. This hurdle was jumped quite 
easily by making an arrangement with a local shop that had a 
PostScript-driven phototype setting machine; we supply 
PostScript files generated by Professional Page, and they 
pump them through the machine and deliver camera-ready 
film for a reasonable charge per page. 

So what does all of this say about the maturity of the technol- 
ogy? Well, we (the user) started without knowing anything, 
ejicept how to work an Amiga and create the contents of a 
magazine. We bought a printer and just ptugged it in to our 
Commodore equipment with the enclosed cable; we bought a 
program from another manufacturer and ran it. Everything 
worked. Not by accident, but because developers of comput- 
ers, software, peripherals, languages and standards are work- 
ing together more tightly to make these things work. 

We hope you enjoy this special extra-lite issue, with new 
home-made production goodness. You can expect future is- 
sues to grow to regular size, and expect the production to get 
slicker and the nutnber of diagrams and photos to increase as 
we get more comfortable with the new system. Ironically, 
Karl's traditional sign-off is more appropriate now than ever: 
^There's nothing as constant as change." 
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Using "VERIFIZER" 



The Transactor's Foolproof Program Entry Method 



VERIFIZER should be run before lyping in any long program from the 
pages of The Transactor. It will let you check your work line by line as 
you enter the program, and catth truslraling typing errors. The VERIFI- 
ZER concepi works by displaying a two-letter code for each program 
line which you can check against the corresponding code in the 
program listifig. 

There are five versions of VERIFIZER here; one for PET/CBMs, VIC or 
C64, Plus 4, CI 28, and Bl 28. Enter the applicable program and RUN it. 
If you get a dala or checksum error, re-check the program and keep 
trying until all goes well. You should SAVE !he program, since you'll 
want to use it every time you enter one of our programs. Once you've 
RUN the loader, remember lo enter NEW to purge BASIC text space. 
Then turn VERIFIZER on with; 

SYS 634 to enable the PET/CBM version (off. SYS 637) 
3YS828 to enable the C64/VIC version (off:SYS831) 

SYS 3072,1 to enable the C1 28 version {off: SYS 3072,0) 

Once VERIFIZER is on. every time you press RETURN on a program 
line a two-letter report code will appear on the top left of the screen in 
reverse field. Note that these letters are in uppercase and will appear as 
graphics characters unless you are in upper/ lowercase mode (press 
sfiJft/Commodore on C64/VIC), 

Note: If a report code is missing (or " — '') it means we've edited that 
line at the last minute which changes the report code. However, this 
will only happen occasionally and usually only on REM statements. 

With VERIFIZER on, just enter the program from the magazine nor- 
mally, checking each report code after you press RETURN on a line. If 
Ihecodedoesn'l match up with the letters printed in the box beside the 
listing, you can re-check and correct the line, then try again. If you 
wish, you can LIST a range of lines, then type RETURN over each in 
succession while checking the report codes as they appear. Once the 
program has been properly entered, besuretoturn VERIFIZER off with 
the SYS indicated above before you do anything else, 

VERIFIZER will catch Iransposilion errors like POKE 52381,0 instead 
of POKE 53281,0. However, VERIFIZER uses a 'Veighted checksum 
technique" that can be fooled if you try hard enough; transposing two 
sets of 4 characters will produce the same report code but this should 
never happen short of deliberately (veriEizer could have been designed 
lo be more complex, but the report codes would need to be longer, and 
using it would be more trouble than checking code manually), VERIFI- 
ZER ignores spaces, so you may add or omit spaces from the listed 
program at will (providing you don't split up keywords!}. Standard 
keyword abbreviations (like nE instead of next] will not affect the 
VERIFIZER report code. 

Technical info; VIC/C64 VERIFIZER resides in the cassette buffer, so 
If you're using a dalasette be aware that tape operations can be 
dangePDus lo its health. As far as compatibility with other utilities goe^, 
VERIFIZER shouldn't cause any problems since it works through the 
BASIC warm-start link and jumps to the original destination of the link 
after it's finished. When disabled, it restores the link to its ofiginal 
contents. 
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PET/CBM VERIFIZER (BASIC 2.0 Of 4.0) 

10 rem' data loader tor Verifizer4.0"* 

15 rem pet version 

20cs = 

30 for i = 634 to 754;read a:poke i,a 

40cs = cs + a:nexti 

50: 

60 it csOl 5580 then print'" *"^" data error *"**""; end 

70 rem sys634 

80 end 

100: 

1000 dala 76. 138, 

10T0datai73, 164, 

1020 data145, 201, 



2. 120. 173, 163, 2 
2. 133, 145, 88, 96 
2,240, 16, 141, 164 
1030 data 144, 141, 163, 2, 169, 165, 133 
1040data 2,133,145, 88, 96, 35,228 
1050data201, 13,208, 62,165,167,208 
1060 data 254, 1, 133. 251, 162, 0, 134 
1070data 0, 2.168,201. 32,240, 15 
1080 dala 165, 253, 41, 3,133,254, 33 
1090 data 198, 254, 16, 249, 232, 152, 208 
1100data251. 41, 15, 24,105,193,141 
1l10data165.251, 74, 74. 74, 74, 24 
1120 data 141, 1, 128, 108, 163, 2, 152 
1130data251, 133,251, 96 

VIC/C64 VERIFIZER 



, 133, 144 
, 120, 165 
, 2, 165 
, 144, 169 
, 165,217 
, 58,173 
,253,189 
, 230, 253 
, 236, 2 
,229, 165 
, 0,128 
, 105, 193 
, 24,101 



KE 


10 rem* data loader for Veritizer'* 




JF 


1 5 rem vic/64 version 




LI 


20cs^0 






BE 


30 for i = 828 to 958:read a:poke i,a 




DH 


40cs = cs + a:nexl J 






GK 


50: 






FH 


60ifcs<>1 4755 then print"* *•** dala error * 


KP 


70 rem sys 828 






AF 


80 end 






IN 


100; 






EC 


1000 data 76, 74, 


3, 165,251, 


141, 2 


EP 


1010data252, 141. 


3, 3. 96, 


173, 3 


OC 


1020data 3,240, 


17,133,252, 


173, 2 


MN 


1030 data 251, 169, 


99,141, 2, 


3, 169 


MG 


1040 data 3, 3, 


96, 173,254, 


1, 133 


DM 


1050data 0. 160, 


0, 189, 0, 


2,240 


CA 


1060 data 32,240, 


15, 133, 91, 


200, 152 


NG 


1070data133, 90, 


32,183, 3, 


198, 90 


OK 


1080 data 232, 208, 


229, 56, 32, 


240. 255 


AN 


1090data 32,210,255,169, 18, 


32,210 


GH 


llOOdata 89, 41, 


15, 24, 105, 


97, 32 


JC 


1110data165, 89, 


74, 74, 74, 


74, 24 


EP 


1120da!a 32,210, 


255. 169, 146, 


32.210 


MH 


1130data 32,240, 


255,108,251, 


0. 165 


BH 


1140datal01, 89, 


133, 89, 96 





4: *« 41 



■:end 



, 3,165 
, 3. 201 
, 3, 133 
, 3,141 
, 89.162 
, 22,201 
, 41, 3 
, 16,249 
,169, 19 
,255, 165 
,210,255 
, 105, 97 
,255, 24 
, 91, 24 



VIC/64 Double Veriflzer Steven Walley, Sunnymead, CA 

When using VERIFIZER' wilti some TVs, the upper left corner of the 
screen is cut off, hiding the verifizer-displayed codes. DOUBLE VERI- 
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FIZER solves that problem by showing the two-lelter verifizer 
code on both the first and second row of the TV screen. Just run 
the below program once the regular Verifizer is activated. 



100 for ad = 679 lo 720:read da. poke ad,da:next ad 

110sys679; print; print 

120 prinfdouble verifizer activated";new 

130data120, 169, 180, 141, 20, 3 

140data169, 2,141, 21, 3, 88 

150 data 96, 162. 0, 189, 0,216 

160 data 157, 40,216,232,224, 2 

170data208, 245, 162, 0,189, 

180 data 4,157, 40, 4,232,224 

190 data 2,208,245, 76, 49,234 



VERIFIZER for Tape Users 



lorn Potts, Rowley, MA 



The following modifications to the Verifizer loader will allow VIC and 64 
owners with Datasettes to use the Verilizer direcdy (without the loader). 
After running the new loader, you'll have a special copy of the Verifizer 
program which can be loaded from tape without disrupting the pro- 
gram in memory. Make the following additions and changes lo the VIC/ 
64 VERIRZER loader: 

NB 30 for i = 850 to 980 read a: poke i.a 

AL 60 if CS014821 then pr[nt'*'**»data error*****"; end 

IB 70 remsys850on, syse53off 

— 80 delete line 

— 100 delete line 

OC lOOOdata 76, 96, 3,165,251,141, 2. 3.165 
MO 1030data251, 169, 121, 141, 2. 3. 169, 3, 141 

EG 1070 data 133, 90, 32,205, 3,198, 90, 16,249 

BD 2000 a$ = "verifizer sysa50[space]" 

KH 2010 for I -850 10 980 

GL 2020a$ = a$ + chr$(peek(i)). next 

DC 2030open 1,1, 1,a$; dose 1 

IP 2040 end 

Now RUN, pressing PLAY and RECORD when prompted to do so (use a 
rewound tape for easy future access). To use the special Verifii^er that 
has just been created, first load the program you wish to verily or 
review into your computer from either tape or disk. Next insert the tape 
created above and be sure that it is rewound. Then enter in direct 
mode: OPEN1:CLOSEI. Press PLAY when prompted by the computer, 
and wait while the special Verifizer loads into the tape buffer Once 
loaded, the screen will show FOLIND VEK1PIZER.SYS850. To activate, 
enter SYS 850 (not the 828 as in the original program). To de-activate, 
use SYS 853. 

If you are going to use tape to SAVE a program, you must de-activate 
(SYS 853) since VERIFIZER moves some of the internal pointers used 
during a SAVE operation, Atlempting a SAVE without turning off 
VERIFIZER first will usually result in a crash. If you wish to use 
VERIFIZER again after usmg the tape, you'll have to reload it with the 
OPENI:CLOSE1 commands. 

C1 28 VERIFIZER (40 column mode) 



PK 
AK 
JK 
NH 
OG 
JP 
MP 
AG 
ID 
GF 



1000 rem *■ data loader for 'verifizer cl 28" 

1010 rem * commodore cl 28 version 

1020 rem * use in 40 column mode only! 

1030 cs = 

1040forj = 3072to3214 read x: poke j,x: oh = ch -fx: next 

1 050 if chOI 7860 then print "checksum error": stop 

1060 prrnt "3/5 3072,1: rem lo enable" 

1 070 print "sys 3072,0: rem to disable" 

1060 end 

1090dala208, 11,165,253,141, 2. 3,165 



MG 

HE 

LW 

JA 

El 

KJ 

DH 

JM 

KG 

EF 

CG 

EC 

AC 

JA 

CC 

BO 

PD 



1100 
1110 
1120 

1130 
1140 
1150 
1160 
1170 
1180 
1190 
1200 
1210 
1220 
1230 
1240 
1250 
1260 



data 254, 141. 


3, 3, 96, 


173, 3. 


3 


data201, 12, 


240, 17.133, 


254,173, 


2 


data 3,133, 


253,169, 38, 


141, 2, 


3 


data 169, 12, 


141, 3. 3, 


96. 165, 


22 


data 133. 250, 


162, 0.160, 


0,189, 





data 2,201, 


48,144, 7, 


201, 58, 


176 


data 3. 232, 


208,242,189, 


0, 2, 


240 


data 22,201, 


32,240, 15, 


133,252. 


200 


data 152. 41, 


3, 133.251, 


32.135, 


12 


data 198. 251, 


16,249, 232, 


208. 229, 


56 


data 32,240, 


255. 169, 19, 


32,210, 


255 


data 169. 18, 


32,210,255, 


165. 250, 


41 


data 15, 24, 


105,193, 32, 


210,255, 


165 


data 250. 74, 


74. 74. 74, 


24,105, 


193 


data 32.210, 


255. 169, 146, 


32,210, 


255 


data 24. 32, 


240,255, 108, 


253, 0, 


165 


data 252, 24, 


101,250, 133, 


250, 96 





Introducing 

The Standard 
Transactor Program Generator 

[f you type in programs from t!ie magazine, you mii^Kt be able lo save 
yoursdf some work with the program listed on this page. Since many 
programs are printed in the form of a BASIC ^^program generalor'\ 
which creates a machine language program on disk, we have created a 
"standard generator" program that conlains code common to all 
program generators. Just type this in once, and save all thai typing for 
every other program generalor you enter! 

Once the program is typed in (check rhe verifizer codes as usual when 
entering it), save it on a disk for future use. Whenever you type in a 
program generator [for example listings 5 and 6 from the article 
'Interfacing two Commodore 64s" in this issue), the listing wili refer to 
the standard generator. Load tiie standard generator you've saved, then 
type the lines from the listing as shown. The resulting program will 
include the generator code and be ready lo run. 

When you run tliis new generalor, it will create a machine language 
program on disk that can be loaded [ioad'filename',8,1) and executed 
with a SYS command. The machine language program is described in 
the related article, and the generalor is jus! an easy way for you to create 
it using ihe standard BASIC editor at your disposal. After the machine 
language file has been created, the generator is no longer needed. The 
standard generalor, however, should be kept handy for all future 
Transactor lype-in program generators. 

The standard generator listed here will appear in every issue from now 
on (when necessary) as a standard Transactor utility like Verifizer, 



MG 
EE 
LK 
KO 
EC 
FB 
DE 
CM 
CH 
HM 
NA 
KD 
HE 
JL 
MP 
MH 
IH 



100 rem transactor standard program generator 

110n$= "filename": rem name of program 

1 20 nd = 000: sa = 00000. ch = 00000 

130fori = 1 to nd. read x 

140ch = ch-x: next 

150 if ch then pnnt"data error": stop 

160 print'data ok, now creating file" 

1 70 restore 

180open1,8,1/0:" + n$ 

1 90 hi = int(sa/256): lo = sa-256*hi 

200 print#1 ,chr$(lo)chr$(hi); 

210for i = 1 tond: readj< 

220phnt#1,chr${x);, next 

230 close 1 

240 prinfprg file "inS;-' created. . : 

250 print this generatorno longer needed." 

260: 
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Got a/1 interesting programming tip, short routine, or an unknown bit of 

Commodore irivia? Send it in - if we use it in the hits column , we' II credit you 

in the column and send you a free one-year's subscription to The Transactor 



Header With Variables 

Ken Garber, Windsor, Ontario 

The example in fhe Ci28 user guide (page 265) on using 
HEADER has an error. A syntax error will occur if one at- 
tempts to assign the disk ID to a variable name (e.g, 1(A$)). 
This is confirmed by the BASIC 4.0 Reference Manual. How- 
ever, by manipulating the string variables, the ID can be suc- 
cessfully set from within a program. 

As the 'Are you sure?' prompt is suppressed in program 
mode, the ^escape' prompt in hne 40 has been added. Line 30 
allows for a short NEW. 

10 inpul"diskname";a$: input"disk id";b$ 

20 c$=a$+";'+b$ 

30ifb$=""ihenc$=a$ 

40 input'are you sure ";q$:if q$<>"y" ihen end 

50 header(c$) 

60 print ds$ 



C128 64 Mode Autobooler 

Aaron Spangler, Everett, Washington 

YouVe heard about all those auto start programs for the C64 
that ^save you keystrokes'. Well, this one beats them all - you 
don't have to hit any keys until your program is loaded. 
There's one catch - it only works on the 128. 

It works like this: First ii sets up an autostart program at track 
1 sector 0, When the 128 powers up, it checks for the upper- 
case characters 'CBM\ If it fmds it, it executes the machine 
language following. My machine language program transfers 
part of its program to $8000 in bank 0, flips to bank 15 and 
ihen goes lo 64 mode. 

When the 64 resets, it checks for 'CBM^ ihen the byte $80 at 



$8004. If it finds this, it executes the ML pointed to by loca- 
tions $8000 and $8001. The ML there initializes as the Kernal 
would until it's ready to go to BASIC, but before ii does that, 
it puts a MO"*".8,8^ and a shifted RUN/STOP in the keyboard 
buffer After BASIC has taken over, it goes to the ready 
prompt and dumps those characters. The only complication is 
that when you hit the RESTORE key on the 64, it also checks 
for the same mask at $8004 and of course it finds it. Then it 
jumps to the location pointed to by $8002 and $8003. 1 didn^l 
want the RESTORE key to reset ihe computer, so I had it 
point right back into the Kemal. Here's the program that does 
it all. 

IB 100 print'^ 'autobooi 64* - by : Tthe wolverine! " 

KA no print"lhis program puts an autobooi program" 

GL 120 print"at track: 1 sector: 0. upon reset, the" 

BC 130 print" autoboot program is loaded by the 128," 

ID 140 print" the program sets the 128 into 64 mode," 

CE 1 50 print" loads the first program on disk," 

DO 160 print" and executes it." 

HH 170forx=l to 91: read a: b=b+a 

: a$=a$+chr$(a): next 

LD 180 forx=l to 164: b$=b$+chr$(0): next 

EF 190ifb<>10230thenprint"data error": stop 

PL 200 data 67, 66, 77. 0, 0, 0, 0, 

AH 210 data 0, 120, 32, 132, 255, 169, 0, 141 

IM 220data 0,255,120,162,128,189, 37, 11 

KA 230 data 157,255, 127,202,208,247, 169, 

OC 240datal41, 0,255, 76, 77,255, 9,128 

AP 250 data 94,254,195,194,205. 56, 48,142 

LC 260data 22,208, 32,163,253, 32, 80,253 

MC 270data 32, 21,253, 32, 91,255, 88,162 

PD 280data 10,189, 42,128,157,118, 2,202 

10 290 data 208, 247, ,169, 10,133,198,108, 

EJ 300 data 160, 76,207, 34, 42, 34, 44, 56 

BM 3]0data 44. 49, 131 

AD 320 print; print"insert new formated disk & 

press return/' 
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MP 330 ^ct z$: if z$<>chrS(l3) then 250 

JO 340 open 15,8 J5,"b-a:0.1.0" 

IJ 350open5,8,5;'#" 

AH 360pnni#l5;Vp:5,0" 

NM 370print#5,a$;b$; 

GC 380prinl#15,"u2:5,0,l,0" 

OO 390 dose5; close 15 



Ordering Information 

For Commodore Hardware Service Manuals 

Ted Evers, Richmond Hill, Ontario 



Device 



Commodore Part Number 



C64 #314001-02 

8050/8250 #3 140 1 1 "03 

1540/1541 #314002-01 

2031 (Identical to 1541 long-boardexcept for input circuitry.) 

#1540039 sheet numbers I and 2 for 2031 schematics. 

Message Scroller 

Nick Barrowman, St. John's, Newfoundland 

Message is an interrupt driven routine lo scroll a message 
across the bottom ot the 64\ screen. It allows huge messages 
(which can be composed using writer, a short basic program 
included) to scroll across at any speed you choose. You can 
set the colour (and change it at any time) by POKEing it into 
1023. To set die speed, POKE 780,speed (the lower the faster) 
and then SYS 49152 

DM 10 rem "*■* inierrupl message scroller ** 

HM 20 rem ** by nick barrowman ** 

CB 30 read a; if a>-I then ch=ch+a 

: poke 49 1 52-Hb,a: b=b+ 1 : goto 30 

AM 40 if chol3439 then print "checksum error!": end 

NN 50 print >oke 780,speed" 

JM 60 print "poke 1023.colour" 

Jl 70 pHnt "poke 780,255 to halt" 

PK 80 print "sys 49152 to activate" 

CL 90 print "note: always poke 780 before the sys" 

JO lOOOdata 120,201.255,208, 14. 173, 107 

PH 1010 data 192, 141, 20, 3,173,108.192 

KG 1020daml4K 21, 3, 88, 96,141, 61 

IJ I030data 192, 173, 20, 3, 141, 107, 192 

HJ 1040 data 173, 21, 3,141,108,192,169 

JG I050data 54,141, 20, 3,169,192,141 

EE 1060data 21, 3,169, 0,133,251,169 

PB 1070data 193, 133,252, 88, 96,238, 19 

GL 1080data 3,173, 19, 3,20!, 0,144 

JH 1090data 42,169, 0,141, 19, 3,160 

GB llOOdata 0,177,251,208, 11,169, 

CJ niOdata 133,251, 169, 193, 133,252, 76 

DL 1120 data 106, 192, 153, 192, 7, 173,255 

EM 1130 data 3,153, 192,219,200,192, 40 

OH 1 140 data 208, 227, 230, 25 1, 208, 2, 230 

ON 1 150 data 252, 76, 0, 0,-1 



5 rem the message writer program: 
!0a=0:pnntchr$(147); 
20 get a$: print aS;; if a$<>"@" then 20 
30 b^peek(1024+a): poke 49408+a,b 
: if boO then a=a4-l ; goto 30 



C64 Joystick Por( Protection 

Gary M. Collins, Bonner Springs, Kansas 

The notorious susceptibility of the C-64/C- 128 joystick ports 
to static "zaps*' (and resulting severe damage to Ehe comput- 
er) can be avoided in many ways. Evan Williams (Transaaor 
Vok 8, Iss. 3, p. 25) solves the problem by killing the static 
charge before contact with the pins. As he says in his excel- 
lent article, however, the pins should noi be touched at all. 
One very cheap and simple meihod is to simply slap a piece 
of vinyl electrical tape across the unused opening(s)- 

An other method, equally cheap, involves one of those 
scrapped joysticks that everyone accumulates. Simply cut the 
wire flush wiih the back end of the plug. Dab a bit of 5- 
minute epoxy on the exposed wire ends, and prestol - a dum- 
my plug for the unused port. (I leave a stick plugged into Port 
2 all the time.) This makes ii easy to move (he plug as need- 
ed, doesn't gum up the pins as tape might, and eliminates the 
necessity of opening the computer. 



Seiknsha Printer Ribbon Reloads 
Robert V» Davis, Salina. Kansas 

The Seikosha printers, SP-IOOOVC and SP-180VC, ping di- 
rectly into the Commodore C-64/128 serial bus and provide 
reasonable print quality at a verj' tow price. But the replace- 
ment ribbons cost about $10 each. Users with a masochistic 
streak or a desire for economy can reload their ribbon car- 
tridges for about $4.50 each. My first reload look an hour and 
my hands became very inky. Experience helps. Be very care- 
ful opening ihe plastic cartridge to avoid breaking the pins 
\vhich hold it together. Follow precisely the directions for in- 
stalling the reload so the highly compressed ribbon will not 
spring out of the plastic housing (personal experience). 

Reloads for the Tandy DMP-130 printer, packed three to a 
box, are exact replacements for the Seikosha primers. The 
Radio Shack part number is 26-1238. Save money! 



Gemini I0\ Ribbon Refreshing 
Dashim Shah, Republic of Singapore 

Murray Kaiisher's tip on ribbon rejuvenation in BITS (Issue 
Nov. '87), prompts nic to write in with this tip for users of 
STAR'S venerable Gemini lOx series of printers. 

These printers, very popular with 64 users, use spool-type rib- 
bons, similar to those used in typewriters, hut with one very 
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imporlant difference. On either end of the ribbon are two eye- 
lets. These eyelets trigger a mechanical lever when either 
spool is empty, causing the spool to (um the other way. thus 
allowing the full spool to unwind. 

Well, after using my original STAR ribbon for almost two 
years (that's right, two years!), I discovered that STAR does 
not supply these ribbons any longer. Since it looked like a 
typewriter ribbon anyway, T thought it would be available at 
my normal stationer. 

Here is problem number one. It is practically imp<>ssible lo 
locale ribbons with eyelets at the ends, in Singapore anyway. 
Problem fiumber two is that most typewriter spools are not 
configured with the correei number or spacing of ht)lcs lo fit 
ihe printer. 

The solution is rather obvious, if a little messy. Unwind th^ 
new ribbon from its original spool and wind it onto the prim- 
er's old spools (having removed the old ribbon first of 
course). As for the eyelets, I simply used a couple of staples, 
vertically stapled to the new ribbon where the eyelets should 
have been. It worked beautifully! However, for those who 
prefer a more elegant approach, you can use a couple of those 
bulk eyelets thai legal firms are so fond of using to hold a 
bunch of papers together by their comers. Simply punch them 
into position. 

Finally, you can extend the life of your ribbon by just flipping 
(he spool around- This will automatically position the unused 
half of the ribbon on lop, giving you the use of two ribbons 
for the price of one. 



More C-128 Myslerles„. 

A J. Saveriano^ Sparta, New Jersey 

Look at these two sentences and decide what the response of 
the C-128 would be if you typed them in direct or program 
mode (type them in exactly as shown); 

QUIT THAT! 

OFTEN, WORDS ARE SPELLED STRANGELY 

Ok,., now that you have made your decision, type the first 
sentence in direct mode and hit RETURN. Do the same for 
the second sentence, Hmmm... did you get the old faithful 
SYNTAX ERROR? Surprise! A new error code appears (new 
for me, at least). UNIMPLEMENTED COMMAND ERROR 
is your reward. Why? Well, Em not really sure. However, if 
you scan the BASIC ROM in Bank \5 from addresses lf^0S9 
to 18111 you will see that two keywords appear that we (1) 
didnH know about. They are QUIT and OFF. 

This one-liner will let you see them: 

10 bank 15:prinichr$(H):fori=18089 to 18111 
: print chr$ (pee k ( i )) ; : n ex! 



Since the error calls itself 'unimplemented*, 1 have lo assume 
thai Commodore had plans for these two commands but de- 
cided against using them (at least for now). Actually, any 
command starting with the letters QUIT or OFF will cause 
the above result, I wonder if there are any others?... 

Fast Load Killer 

Michael T. Graham, Hopatcong, New Jersey 

Some C64 games and applications that read or write to disk 
don't operate properly when they are loaded using EPYX*s 
FAST LOAD or similar cartridges. The trouble isn't with the 
load operation itself; the problems occur because FAST 
LOAD is still enabled when the program is executing. Some- 
thing in FAST LOAD causes drive errors when non-load disk 
I/O is attempted. One way around this is to disable the car- 
tridge before loading the program, but this means you'll have 
to put up with the lethargic pace of the unassisted 1 54 1 . There 
is, however, a belter way. 

You can load the program using FAST LOAD and then 
disable the cartridge by inserting the following lines in the 
program's loader or at the beginning of the program itself: 

I0sys,^8451: sys 65418 

20 open l5.8J5,"ui": print#15;'iO": dose 15 

The fii^l line resets the vector tables used by BASIC and the 
Kemal, effectively disconnecting ihe cartridge's hooks into 
the system. The second line resets the disk drive, flushing any 
special code thai was uploaded during the load operation. 

This technique also disables The Final Cartridge' and should 
work on other fast-loaders as welk It will also work when no 
cartridge is installed, making it more universal than calling 
the cartridge's built in disable routine. <, 

Fade Out (Fade In?) 

Geoff Seeley, Bridgewater, Nova Scotia 

The following screen daz.zler was written for only one reason, 
lo see it work. Be forewarned though, prolonged exposure to 
this program could freak -out your optic nerve! The program 
is written completely in machine language and is IRQ driven. 
Type SYS 49152 to start and to stop the program. (For C64 
only). 

FJ 100x=49[52;ck=0 

EA 1 10 read a: ifa=-l then 130 

DL 120 poke x,a: ck=ck+a: x=x+l: gotollO 

CF 1 30 if cko 1 6S9 1 then print"error in data" 

MN 140 print^sys 49152 to start/stop": end 

AO K)00datal73, 20, 3,201, 49,240. 13 

EE 1010 daia 120, 169, 49,141, 20. 3.169 

DC 1020 data 234, 141,. 21, X 88, 96,120 

LF 1030datal69, 3^ HU 20, 3,169,192 

JH 1040datal41, 21, 3, 88, 96, 24,173 

BF I050daial25, 192, 105, 128, 141,125, 192 
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OE 1060 data 201, 

IH 1070 data 173. 

BK 1080 d^ta 238. 

II 1090 data 76. 

IL 1100dalal92, 

PI lllOdata 192, 

Fl 1120datal33. 

DK l]30daml45. 

HN 1140 daia 255. 

FK 1150 data 76. 

FM 1160 data 208. 

LL 1170dala 141. 

PA 1180 data 0. 

LA n9ddata 12. 

KL 1 200 data 11, 

CJ 12i0data 1, 



0. 240. 

126, 192. 

126. 192, 

71. 192, 

168. 185, 

169, 0. 
255, 160, 
254. 230, 
169.220, 

86, 1 92, 
141, 33, 
134. 2, 



0, 
II, 

11, 
-I 



1, 
12, 



3, 76. 
201, 19. 
173. 126. 
169. 0. 
128, 192, 
133,254, 

0, 173, 
254, 208, 
197, 255, 
169, 0. 
208, 173. 

76, 49, 

1, 15. 
0, 0, 

12, 15, 



49, 234 
240, 10 
192, 168 
141, 126 
141.127 
169.216 
127. 192 
247. 230 
240, 3 
141, 32 
127, 192 
234, 

15, 12 
0, 

15, 1 



Disk Light Flasher 

Jtff Spangenberg, Zephjr Cove, Nevada 

This program flashes the disk lighl as a strobe on the 1541 
and 1571 drives. It works on the C64, oraC128 in 64 mode. 
The program also monitors the line so that if a disk command 
is sent the program exits and executes the command. 

LF 1 00 rem flash disk drive LED on 1 54 1 

NM I10ck=0 

EG ■ 120 for x=49152 to 49290: read z:ck=ck+z 

ML 130 poke x,z: next 

01 140 if ck<>18154 then print"error": end 

Dl 150sys49152 

EB 160 : 

AD 170datal60, 62,169, 8, 32,177,255,169 

MI I80datalll. 32,147,255,169, 77. 32,168 

NH 190 data 255, 169, 45, 32,168.255,169, 87 

HD 200data 32,168,255,152, 32.168,255,169 

MO 2l0data 5, 32,168,255.169. i, 32,168 

KK 220 data 255, 185, 77,192, 32,168.255, 32 

MF 230 data 174, 255, 136, 16,205.169. 8, 32 

FE 240data 177,255, 169, 111, 32. 147,255, 169 

AE 250data 85. 32,168.255.169. 51, 32.168 

HA 260data255. 32,174,255, 96,120, 41, 

FO 270datal41. 0. 24.169.254,170, 32. 38 

EA 280 data 5. 32. 38. 5,202.224, 1.208 

CG 290 data 248, 32, 38. 5. 32. 38, 5,232 

DK 300data224, 255,208,248. 173. 0, 24.240 

PK 310data232, 88, 96,138, 72, 73,255,168 

CM 320 data 169,248, 141, 0, 28.202.208,248 

LM 330data 169,240, 141, 0, 28,136.208,248 

DL 340 data 104, 170, 96 



Best-Bit-From-Mosctt w Departm en t 

Restore to Line Number 

Oleg Smirnov, Moscow, LI.S.S.R. 

I was recenUy making a MONOPOLY game for my 64. There 



was lots of data that required random access, but keeping it in 
arrays would have consumed too much memory. Some BA- 
SICS have a RESTORE [line number] siaicmeni to do the job. 
So does the 64's BASIC 2.0, according to some smartie at 
Commodore (see user's guide, page 176, 'RESTORE line 
number')- Unfortunately, my 64 never read the user's guide 
and reported a 7SYNTAX ERROR when put face to face with 
this version of RESTORE staiement. To make up for its igno- 
rance. I wrote this short ML program as a substitute: 

OE 1 rem 64 restore-r - oleg smirnov 

DJ 5s=49152 

EF 10 for i=s to s+54: read a: poke i,a: next 

OK 20dalal65, 43.133.251 165, 44,133,252 

IC 25dala 160, 2, 177.251, 197, 63,208,21 

BI 30daia200. 177,251. 197. 64,208, 14,165 

GG 35 data 251. 24.105. 4,133. 65,165,252 

ND 40daia]05. 0.133, 66, 96,160, 0,177 

LF 45daia251. 133.254,200, 177,251, 133.252 

BA 50 data 165.254. 133,251, 76, 8,192 

Here is how to use it. Poke the line number to be RE- 
STORED to into locations 63-64 decimal in the standard low 
byte/high byte format, and then SYS 49152. Example (dl 
stands for data line number): 

100 hi=d]/256: lo=dl-int(hi)*256 
105 poke63,lo: poke 64, hi: sys 49152 

To relocate RESTORE-r to a different address in memory, 
change line 5 {'s' is the starting address) and line 50. The last 
two numbers of line 50 are equal to s+8 in the low byte/high 
byte format. Change these to correspond to your new starting 
address plus eight. 

RESTORE-r uses zero-page locations $FB-FC and $FE (251- 
252 and 254 decimal). To use other locations, make changes 
wherever you encounter a 251, 252 or 254 in the data state- 
ments. Also, for the sake of shortness, RBSTORE-r lacks er- 
ror trapping. It gets stuck on non-existent line numbers. Use 
RUN STOP - RESTORE in this case. 

And one more thing. With the following changes. RESTORE- 
r becomes a computed GOTO routine: 

Line 25: 57 instead of 63 

Line 30: 58 instead of 64 

Line 35: 56.233,1,133,122 instead of 24,105.4,133.65 

Line 40: 233 instead of 105; 123 instead of 66 

To use it, poke the line number into locations 57-58 decimal 
(kiw byte first), and SYS 49152. Control is then transferred to 
the line specified. Example: 

100 input "which line number should I GOTO";g 
1 10 hi^g/256: lo=g-int(hi)*256: 
120 poke 57.io: poke 58,hi 
130 sys 49152 
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Oh, For the Good Oid Days.., Today, I received the last is- 
sue of my subscription, I have carefully considered my deci- 
sion regarding renewal. 

Two years ago, A friend of mine lent me his Transactor, Ai 
that time, I had just about absorbed all (he pabJum to be had 
in Compute!'s Gazelle which seemed to repeat the same old 
stuff over and over, always directed to the rank beginner 
God! was I happy to find T Because it went to the very heart 
of my computer, telling me all the hidden secrets which 1 
could never have discovered on my own at that stage of my 
development. 

I have eagerly awaited every issue since that first one because 
I knew there would be a choice piece of information and/or a 
terrific program I needed. As I once wrote to you, "ll seems 
thai every time J need a program to do a certain job, (he very 
next issue of T provides exactly what I need! " It was eerie at 
times,.. 

For the last two or three issues, however* the quality of the 
magazine print has soared to new heights hut the quality of 
the words (which is all that matters) has dropped to the level 
of Computet's GazeEte. T is now full of empty words. Who 
needs reviews? Who needs opinions? I miss the interesting 
covers and I hate the slick paper. The very reasons for my 
loving T so much are almost all gone. 

I wish you well with your new ''look*' but from now on, I 
will just buy a copy of Compute! 's Gazette in the grocery 
store when one interests me. Someone ihere at T should real- 
ize that the old magazine was directed to super-intelligent, 



avid C'64 fans who crave the arcane knowledge found only 
in the old T. Now, you seem to be trying to grasp the begin- 
ner's market but, a]l of them are gone. 

It is very much like watching the slow death of a dear friend 
and with deep regret that T must decide not to renew my suh- 
scripiion. 

L 

J 

RS. I failed to mention Tm NOT interested in Amiga, Apple, 
128, or B-Series - only C-64. If you ever become a ''special*' 
magazine again, please let me know! 

Wayne Gurley 

Wills Point, Texas, USA 



CP/M Saviours: Once again Transactor comes to the rescue. 
1 had just purchased my new 1581 drive and could hardly 
wait to gel it up and running, when 1 discovered that ihe cur- 
rent CPM+ system wouldn't support ii. i played with it in the 
BASIC 7,0 mode and it was great! But I really couldn*t wait 
to get dBASE and WordStar over to one of those "little 
square'' disks. 

Then Mike Garamszeghy saved me with his CPM+.SYS 
patch. Now lean PIP to my 1581 ?i\\^^y\ong. Thanks Mike! 

Thanks for the articles on CP/M and thanks to writers like 
Mr. Garamszeghy, Adam Herst, Clifton Kames and Aubrey 
Stanley for sharing their knowledge with other Commodore 
CP/M users. And thanks to Transactor for offering a place for 
this sharing lo take place. 



Transactor 



10 



May 1968: Vorume 6, Issue 6 



That one issue was worth the price of the subscription. It is a 
shame that Commodore couldn't have supplied die 1581 sys- 
tem wiJh the drive (but Tve been a Commodore user long 
enough to know all about Commodore Customer Support). 

P.S. Mike Garamszeghy is fast becoming the CP/M '*Jim But- 
ter! ield". 

Dr. Ken Flippo 

Milan, Tennessee, USA 



Contrasting tetters like the above two keep us walking an edi- 
torial tigijtrope around here. No matter how we fill these 
pages, we're bound to get both praise and criticism; as long 
as the former prevails (and our sales don't dip dramatically), 
we figure we're doing something right. Wayne Gurley's letter, 
though, is worth a closer look because his perceptions of the 
magazine's "slow death" have been voiced by one or tn'o oth- 
ers. Compared against the facts, tiiough, they just arent true. 

The interesting thing about a magazine like the T is that peo- 
ple read it, to a large extent, for the parts they don't under- 
stand. We've heard from so many readers, '7 love your maga- 
zine, even though J don't understand any/most/some of it" , 
that ifs a standing Joke around here. These people hope to 
learn by eventually grasping more of the magazine^s content, 
so that the parts they don't understand become less with each 
passing issue. If we've done our jobs well, you should he find- 
ing less (in Wayne's words) ^'hidden secrets which / could 
never have discovered on my own at that stage of my develop- 
ment." Why is that surprising, if your whole purpose is to in- 
crease your stage of development? Ironically, the better we do 
our job of educating and informing, the more we remove the 
Transactor magic from the minds of long-time readers, and it 
is possible that we may even lose some along the way. (Mr 
Gurley's reaction of going hack to the "pablum to be had in 
Computers Gazette" is one whose logic escapes us, however) 

If you take a good look at the recent issues, you' II find just as 
much technical info as always (if not more), and I'm sure 
many will testify that much of it is incomprehensible to them 
at this stage. No Amiga content appears in this magazine any 
more, and Apple content never did; expect coverage of the 
C64 and CI2S exclusively, with a tiny smattering of PET/ Su- 
perPETI VIC/ Plus 4/ B-series related material. If we were 
going after the beginner s market, the previous issue wouldn't 
have articles on a communications interface for software de- 
velopers, hacking the POWER C function library, a detailed 
look at CI28 ROM code to investigate a little-known but 
deadly bug, bank-switching routines for C128 machine code, 
and other material that would guarantee instant death in that 
market. 

To address Dr. Flippo's letter, we appreciate the support for 
Mike Garam.szeghy's articles. Feedback like this helps us de- 
termine what to put into the magazine; your letters do make a 
difference! 



Chess, Anyone? I recently purchased a C-128D based largely 
on all prior reports that C-64 software runs OK on it, without 
exception, That\ not die case! Colossus Chess IV, from Silver 
House, England, will not run on my C-128D, It works fine, as 
it always has, on my C-64, Vd appreciate knowing if others 
with a C-128 or C-128D have had the same problem. I have 
tried, but am unable to get a response from Commodore in 
this regard. 

P.S. My C'128D works fine, odierwise. It even works OK 
with Superkit 1 541. which I was never able to get to work 
correctly with my old C-64/1541!? Except, despite claims to 
the contrary', Superkit 1541, will «f^f copy itself. 

John R. Menke, Chessoft Ltd. 
Mt. Vernon, Illinois, USA 

Other than slight differences which vary among all C64 ver- 
sions, we were not aware of any compatibility problems with 
the 128 or t28D. At this stage, we know little about the I2HD 
other than the fact that it is a repackaged C128. Even subtle 
differences in hardware or software can break a program 
however, especially one that uses clever copy protection 
/nethods, or code that relies on undocumented quirks in the 
system, (we don^t know if Colossus is one of these). If anyone 
knows of a commercial program that runs on the 128 but not 
the 128D. we would like to hear about it - let's see if there's a 
problem, and how widespread it is. 

Believe it or not, we have made working copies of SuperKit 
using SuperKit itself- on a brand-new 1571 . The program is 
slick and vei-y high-performance, but, like a highly-tuned rac- 
ing engine, just a bit too finicky for everyday use in the real 
world. Perhaps that has something to do with why SuperKit 
publisher Prism Software is now out of business. 



Random Drive Errors Corrected: h has been noted that a 
1571 disk drive without ROM updates will produce random 
*?device not present error' messages. I encountered this error 
several times while reading a relative fde, and upgraded my 
I 571 ROM to get rid of this bug. Well, this did no! get rid of 
the errors. I asked Commodore in the United States, a soft- 
ware company in the U.S. and a few store owners in the area - 
my question was still unanswered. I had deduced that the er- 
rors were being caused by a very low voltage at sporadic 
times. A C-128 power supply can onJy handle so much at one 
time: two disk drives, a modem, a Mach-128 cartridge, a 
printer, and a printer interface with a 16k print buffer. In my 
last breath f asked a very knowledgeable "guru' on a local 
bulletin board if he had a solution to my problem. He felt that 
if 1 changed my printer interface T would solve thi; problem. 
So, I changed from a TurboPrim GT with die buffer to a Su- 
per Grafix Jr., and it worked. 

Here's the reason: the interface that I had was drawing too 
much amperage from the cassette port, especially with the 
] 6K printer buffer hanging off of it. 1 was able to narrow the 
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problem down by turning off ihc primer and finding thai the 
errors did not occur. If you are having the same problem as 1 
was please check the interface thai you are using. 

Duane E. Barry 
Cambridge* Ontario* Canada 

Thanks for the tip! 



Where's the RS232 Interface? Fve heard thai one of your 
issues had construction directions for an RS232 interface for 
modem connection. Could you please answer a few questions 
for me? ' 

1. Will this interface work on an SX64? 

2. What issue has this info in it? 

3. Will the VlC/C-64 VerifiTer work on the SX64? 
(It doesn't seem to work for me.) 

Looking forward to my new subscription. 

Isidro G, Nils son 

MarysviUe* Washington. USA ' 

I 

Fiist, the ansM^ers: f : Yes; 2: Volume 8 Issue 3; 3: Yes. 

Now for some explanations... 

Other than some differences that vary on different versions of 
the 64 itself, the SX is 100% software-compatible with the 
regular 64 and 64C. It is theoretically hardware compatible 
as well, but since the unit's physical construction is different, 
it is wise to verify, as you are doing, that a plug-it} piece of 
hardware will fit in the slot on the top of the machine. Most 
simple boards that plug into the expansion or user ports will - 
as is the case with our RS232 interface project that appeared 
in Volume ^ Issue 3 

As far as the Verifizer goes, we have used it many times on 
our SX without a hitch - double-check your program against 
the listing (you don't have the benefit of the Veriftzer to do 
this, of course!), or better yet, load the Vic/64 verifizer from 
any Transactor disk. If that's where you got your Verifizer. 
suspect a bad disk. If Verifizer from a good Transactor disk 
gives you the same trouble, you've got bad hardware, or 
you've discovered a problem we don't know about - please let 
us know! 



Transactor Site Licensing Policy - We. the Fundy C64 Us- 
er's Group are in receipt of the reference letter, clarifying the 
Transactor copyright policy. However, we see this as a change 
in your policy and must protest 

In October 1987, we entered into a subscription with your 
magazine under the clear understanding thai Transactor soft- 
ware was available for copy but not resale. For your pari, you 



accepted our subscription, and began lo supply us with soft- 
ware. 

Therefore, this Club and your magazine have entered into a 
contract, and as with all contracts, unless otherwise agreed in 
advance, the terms and conditions of that contract remain in 
effect for its duration. 

Accordingly, the Club expects lo receive Transactor software, 
as agreed, and will continue to copy but not resell, as agreed. 

Our Club consists of members who. having paid a member- 
ship fee, are free to copy the software in our library without 
charge. This Club policy is a factor in determining to which 
magazines we subscribe. We know of no other magazines 
adopting this type of policy and feel that it is a serious mis- 
take which will, in future limit the circulation of your prod- 
uct. 

In closing, we would ask you to reconsider your policy, since 
it will influence our future decisions. and> frankly, we like 
Transactor. 

Bob Laws 

Software Librarian, Fundy C64 User's Group. 

Our copyright policy as printed on page one of the magazine 
was changed recently to prevent exactly the kind of thing your 
user group is doing, because it is difficult to sell Transactor 
Disks when anyone can get them for free at their local user 
group. Our attitude regarding Transactor programs has not 
changed: use them for whatever you wish; use our routines in 
your own programs; give them to your friends. What we are 
trying to prevent is mass-distribution of Transactor Disks, 
which we put considerable effort into producing, and we 
would like to avoid having to compete with our own product 
supplied by others. 

The copyright policy in this issue remains the same, but we 
added a short note about our attitude toward individual copy- 
ing of our programs. Note that this does not affect our copy- 
right, but just slates that we generally don't mind copies of in- 
dividual programs being given away, but you should get spe- 
cial permission for mass-disiribuiion or for distribution of 
collections of Transactor programs (like a Transactor Disk). 
For user groups, our site-licensing arrangement of $3 per 
copy made is the standard deal. 

You're correct in stating that no other magazine has a policy 
similar to ours, but for the wrong reason: no other magazine 
has a policy as liberal as ours. Ask Compute! how they feel 
about people giving away their programs. 

If you no longer wish to subscribe to the Transactor Disk as a 
result of our change of policy, then you may cancel your sub- 
scription and get a refund for the remaining disLs. Alterna- 
tively, you can start charging your members a small fee for 
obtaining our disks without having to order them from us (for 
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more money) and wait for them to arrive. We helieve that this 
arrangement still benefits your group; that, of course, is for 
you to decide. 



Piracy: the debate continues - This letter is in response to 
your editorial in the March issue of Transactor. There is an 
old saying, "Be careful what you wish for, you just might get 
it." For the benefit of the home computer industry as a whole 
and software game writers in particular, I hope you don't get 
your wish in the Weaver vs. Doe case. 

There are several statements in your editorial which are incor- 
rect as far as OS law is concerned. If judgement is found for 
the plaintiff, the defendant will not be convicted of anything. 
This is a civil suit- 
Secondly, you can most assuredly collect damages from a mi- 
nor if he has anything. Also, a judgement is good for seven 
years. By ihat time your minor is a young aduh and you can 
gel that which he had hoped would be his college tuition or 
business stake too. 

Thirdly, judgements are not expensive. US copyright law 
grants the plaintiff actual damages plus all legal fees if he 
prevails. Let your lawyer collect his fee and your damages 
from the defendant. 

I hold a copyright to a book and sympathize with Weaver to 
the extent that Weaver wishes lo recover from the pirate him- 
self. My sympathy diminishes rapidly as Weaver tries to pull 
the parents, the phone company, the fire department and any- 
one else he thinks may have some money, into his suit. 

Parents normally are not held liable for damages caused by 
(heir children, only for their own culpable negligence. To at- 
tempt to extend liability to parents who know little or nothing 
about computers and have no interest in learning or in con- 
stantly monitoring what their child does with his computer 
can oniy result in parents refusing to buy computers for their 
children. This will tend to maximize protection for copyright 
holders, but it will also minimize the market for games, com- 
puters and magazines. I would not want that. 

I don't want to start holding Ma Bell responsible for misuse 
of modems on regular home phone lines at this lime, either. 
She has just barely accepted the idea of permitting such activ- 
ity instead of confining it to the special computer lines which 
are more expensive. There goes Q-Link, all the BBS's, and 
the other services whose make or break point depends on the 
home computer user. 

No» I can't support your position on that. I can support going 
after the violator with all vigor. Get his equipment, for now, 
and don't let up until your judgement is paid in full or the 
time limit has expired. 

I can also support a strojig request lo all responsible owners 



and users lo report violations which come to iheir attention. 
Perhaps holders of software copyrights need an organization 
to monitor and protect their rights as BMI does for the music 
industry. I wouldn^t know how to contact a copyright owner 
if I did see his work being distributed illegally. 

Interestingly, the US copyright law grants certain express 
rights to the owner of a copy of copyrighted material. These 
include the right to sell or otherwise dispose of his copy, lo 
make copies for archival purposes, to re-arrange the material 
to suit his purposes, lo study the copyrighted material in 
depth, and generally, to enjoy all the benefits of ownership 
except distribution. 

Federal court in Louisiana has just ruled that State \s "shrink 
wrap hcense" law illegal. If you buy the package, you own 
that copy and tlie right to use it as you please, period. This 
comes as no surprise since the "shrink wrap license" was 
originated as an effort to deny copy owners the rights that 
they were intended, by Congress, to have. 

Congress has been repeatedly lobbied to reduce the rights of 
the owner of a copy, in the case of tape recorders, video tape 
decks and, most recently, digital tape recorders. They have 
steadfasdy refused to do so. I don't expect them to change 
their position just for software. 

The use of copy protection schemes obviously is intended to 
deny the copy owner certain of his rights and is probably an 
iictionable cause. Further, they only harm the legitimate soft- 
ware user. The pirate has ample tools, provided by a segment 
of the industry solely supported by their use, to etTeciivcly 
negate such schemes. Last year's best seller list is topped by 
"Print Shop Graphics Library #1" at a quarter of a million 
copies sold. It has not one whil of protection. GEOS, on the 
other hand, is given away with every C64 sold. It is of inter- 
est mostly to users who want only to plug it in and push the 
button. It is so loaded with protection that programmers have 
shown little interest except to prove that they can crack the 
protection. I ask you, why protect a program you intend to 
give away? ! suggest their interests would be better served by 
making the shell disk wide open and protecting, if really nec- 
essary, the additional programs for it, which they do sell. 

I feel that we all, software users and creators, need to begin 
co-operating to protect each other's rights, not just our own. 
Working together, we can run the pirates out of the game. 
Wtjrking at cross purposes we only harm each other and cause 
them to fk>urish. Nothing so discourages me as seeing a letter 
from a novice who hasn't mastered BASIC yet. seeking a 
way to hide his work. If the rest of us hid our work, he wouM 
have no chance to learn. Programmers are not bom, we all 
learned most of what we know from others. If Johnnie von 
Neuman and Grace Hopper had hidden their knowledge, we 
would all have had to pursue other hobbies or livelihoods. Yet 
he, somehow, expects an experienced programmer to teach 
him how he can avoid teaching others. That is the atmosphere 
that has been created and 1 abhor it! 
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Co-operation and a commitmenl to protecting all parties 
rights are the only solutions I can see, I certainly don't want 
to see *'big brother'' deciding to do for us what we should 
have done for ourselves. 

Russell K, Prater 
Parker, Florida. USA 

In praise of C - You guys are reading my mind The March 
issue's shift lowards using C on the 64 and 128 shows a very 
smart shift of focus on your part, I vote for continued atten- 
tion to this language because of the language's popularity on 
other machines (and of the usefulness of familiarity with C 
when movmg up to the Amiga). Since it is so fast, C provides 
a wonderful world to explore between the two languages you 
have promoted thus far, BASIC and assembly language. How 
about some graphics routines in C? 

I bought Power C a month ago and am intrigued. If Transac- 
tor focuses on using this package (with forays into other im- 
plementations like Super C by Abacus) the attention will pro- 
mote the popularity of the language among the Commodore 
community. The use of some kind of standard is irnportant, as 
you have proved by promoting PAL as an assembler. 

Besides, even fhough you consistently use the same software, 
there is always room in Iransacior for other products. You 
have proved that by publishing assembly language from 
MAH, French Silk, the Commodore Assembler and others. It 
is nice to see alternative implementations, just to know what 

the other guys are up to. Keep it up- My vote is for continued 
focus on C. 

One more thing. Since moving from Minnesota to Alabama to 
work at the University of Alabama-Birmingham, 1 have be- 
come heir to four 8032 CBMs, two 8050 disk drives, a 4023 
printer and cables to connect them all. The only thing missing 
is decent software and the manuals. Without the last few 
years of Transactor and the Inner Space Anthology, I 
wouldn't be able to do anything with them. Do you have any 
advice as to where to find a word processor and database for 
these things at a reasonable price? Since the university is a 
nonprofit organization, donations from readers who have 
moved on to bigger and better things would probably be tax 
deductible. I would appreciate it if you would publish this let- 
ter along with my address so that interested readers could 
contact me, 

Craig Ede, An Depl., 101 Honors House, Univ. of Alabama at 
Birmingham, Alabama, USA 35294 

Paperclip and the 650S16 - Re the review of ihe Turbo Pro- 
cessor for the C64 on page 56 of Transactor V8i4: I think 1 
know why Paperclip won't run on a 65C816. As you may 
know. Paperclip is not DOS copy protected but is dongle pro- 
tected. This dongle protection seems to consist of two phases. 
First, when you run the program, the program is decoded us- 
ing values from the dongle as a key. Secondly, once the pro- 



gram is up and running, there is a loop which checks for the 
presence of the dongle, apparently during the IRQ (at least, 
the cursor stops blinking if the dongle is removed, and starts 
bhnking again if you reinsert it). 

Alas the decoding phase appears to use undocumented op 
codes (a« least, they are not officially documented in MOS 
Technology spce sheets although they have been documented 
in Raeto West's books and in several other places). Of course 
it is precisely these undocumented codes which the 65816 
family uses for its extra instructions. [I would be as if you 
used undocumented 8080 codes which undoubtedly exist in 
one form or another and then wondered why the resulting 
code would not run on a Z80. The 65816 does have a 6502 
emulation mode but this, I believe, only affects the width of 
the registers- Thus INX would work differently if the x- 
regisier contained $FF depending on whether the X-register 
were 16 bits or, in 6502 emulation mode, 8 bits, in any case, 
it would have had to choose between MOS/Commodore, 
RockweK and Synertech 6502's, and I believe the trend for 
both Rockwell and Synertech has been to treat undefined op 
codes as NOPs in their 65C02's which has the advantage that 
you can pass these through to a co-processor. 

I suppose the moral is that programmers shouldn't be too 
smart with their tricks. If possible, and it isn*t always possi- 
ble, keep with "official'^ methods. If you don*t need blinding 
speed or decent graphics let your MS-DOS programs use MS- 
DOS I/O instructions. Assume your 68000 users are going to 

insert a 68030 board one of these days. Unless you're being 
paid by the company that built the computer, try to let your 
users get away with a not altogether 100% compatible clone. 
And, unless you want a lynch mob outside your door, make 
sure your 1541 DOS copy protection doesn't only work on 
1541s made on alternate Thursdays in June 1984. 

Joel M- Rubin 

San Francisco, Califomia, USA 

Product Info from Readers - I just received the March 
Transactor and read the Letters column, 1 think I can help a 
couple of my fellow readers. 

Patrick Demets wants a book. Specifically he needs a book 
which covers cartridge addressing. May I suggest Easy Inter- 
facing Projects for the Commodore 64 by Downey, Rindsberg 
and Isherwood. U is available from Prentice-Hall or from Don 
Rindsberg, The Bit Stop, 5958 S. Shenandoah Road, Mobile, 
AL., 36608. This book is 200 pages of goodies ranging from 
the basics to constructing speech synthesizers, IEEE serial 
and parallel interfaces, a modem, 8-line multiplexed ADC and 
a ton of other goodies, witli the driver programs where need- 
ed. It also has a chapter on building an EPROM burner/reader 
and covers address range selection as weh as any book I have 
seen. The C64 supports cartridges at $8000, $A000, $EOO0, 
$DFEO, SDFEO or any combination thereof by proper manip- 
ulation of the EXROM, GAME, ROMH, ROML, I/O, and 
l/O^ lines and the address register at $0001. 
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David Kuhn needs a real-time clock for his C128. Everyone 
who is interested in computers and knows wtiat a soidering 
iron looks like should write for a catalog from JAMECO 
Electronics. 1355 Shoreway Road, Belmont, CA 94002. They 
have all the chips, connectors and supplies that you just can't 
find anywhere. They do have a $20 minimum order, but T 
have trouble keeping my orders down to that. On page 30 of 
the current catalog is a real time clock module, a complete 12 
or 24 hour clock in a 16 pin DIP with four bit data line access 
for computers at only $7.95. It is easy to interface through the 
user port and serves very well if powered from a battery and 
7805 regulator- Don't forget to order ihe specification sheet 
with it. 

1 too have a need. Docs anyone know where 1 can get a 
schematic and ROM program for a print buffer? I would pre- 
fer 8-bit Centronics, but Commodore serial would serve. 

Russell K, Prater 
Parker, Florida, USA 

More Clocks - In response to the inquiry "Clock Setting" 
(V815) as a hacker who also likes to dabble in hardware, 1 use 
my C64 and C128 for real world interface and control appli- 
cations. About a year ago T purchased a CCSZ Clock/ Calen- 
dar with 8K CMOS RAM (both battery backed up} from Ja- 
son-Ranheim (1 805 Industrial Drive, Auburn CA, 95603). 

The cartridge has proven very useful for my purposes, such as 
maintaining system time and protecting data integrity during 
power losses. The operating modes that are provided in 
firmware (easily called from BASIC) are too extensive to 
cover in diis letter. The documentation is quire decent and the 
imaginative programmer can make the thing serve many pur- 
poses! The cosi a year ago was $50 US. 

Case H. Marsh 

Columbia , Maryland, USA 



Transbloopurz - The C128 version of "The Projector, Part 
TT'*whichislistedonpages23-25of the January, 1988 Trans- 
actor does not seem to remove the hidden lines properly. On 
my C128 Che line 1960-1970 PAINT statements do not 
erase previously drawn lines which are a large distance below 
the newly drawn line. 

The enclosed hidden line subroutine, if !>ubstituted for the ex- 
isting lines 19^^0-2000 seems to work satisfactorily as a sub- 
stitute. Instead of drawing only 3 lines below the most re- 
cently drawn horizontal line, the substitute program draws a 
sufficient number of spaced, offset lines to cover the previous 
lines lying below this new line. The erasure accomplished us- 
ing the PAINT command then erases a swath sufficiently 
wide to eliminate all unwanted portions of the previous line. 

Lines 1851-1859 in the substitute program are intended to 
limit the number of offset lines to the minimum necessary to 



accomplish the erasure. The maximum vertical screen dis- 
placement between the most recently drawn line and its im- 
mediate predecessor is cakulated for two points on each line 
segment connecting the prccalculated and stored net points. 
Becaiise these points are calculated and indexed using the in- 
teger variables x and y they do nor lie along vertical lines on 
the screen. This is because each line is offset to the left from 
the previous line to achieve the 3-0 illusion. 

The quantity K2 represents the vertical screen distance be- 
tween a precalcuJated point on the previous Mne with the in- 
terpolated point on the newly drawn line having the same 
horizontal screen coordinate. K3 is the same quantity using 
the prccalculated (stored) point of the new line and the corre- 
sponding interpolated point from the previous line. If the new 
line lies entirely below the previous line, no lines are drawn. 

1 hope this may help other readers experiencing similar hid- 
den line problems. The effort certainly helped me understand 
the original program more completely. 

J. Milton Andres 

Palos Verdes, California, USA 

1850 rem mask hidden lines 

1851 kl=0 

1852forx=0tom'l 

l853k2=r{x,y+l)-r(xj)+(r(x,y)-r(x+Uy))*ys/xg 
1854ifk2>kl thenkl-k2 

I855k3=r(x+l,y-+-l)-r(x+l,y)+(r(x,y+l)-r(x+l,y+l))*ys/xg 

1856 if k3>kl then kl=k3 

1 857 next x 
l85Sk=int(kl/3)+l 
1859ifk=l then 1980 
1860forj=l tok 
i865fori=-ltol 

1870 locale g(0,y)+i, r(0,y)+3*j 

1880 for x=l torn 

1890 draw to g(x,y)+i, r(x,y)-f3*j 

1900 nextx, ij 

1910 locate g(O,y),r(0,y)+l 

1920 for x==l torn 

1930 draw 0, +0, +0 to g(x,y), r(x,y)+l 

1940 next x 

1950 draw 0, +0, +0 lo +8, +8 

1955 for j=l tok 

1957fori=-lto 1 

I960 paint 0, g(m,y)+i, r(m,y)-(-3*j 

1970 paint 0,g(0,y)+i,r(0,yH3*j 

1971 nexti,j 
1975fori=-ltolstep2 

1976 locate g(0,y)+i, r(0,y)+l 

1977 for x=l tom 

1978 ckaw 0, +0, -K) to g(x.y)+i, r(x,y)+l 

1979 nextx, i 

1980 locate g(0,y),r(0,y) 
1 990 return 

2000: 
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Cellular Automata 



Mathematical Artforms For The C64 and CI 28 



by Ian Adam, P» Eng. 

Copyright (c) 1987 Ian Adam 

There has been a great deal of mathematical exploration over 
the past few years of the concept of cellular automata. These 
are arrays of cells with specified slates; each celKs state 
changes from generation to generation, in accordance with a 
fixed set of rules opcruling on its neighbours. The accompa- 
nying programs implement a particular variety, 4-state linear 
cellular automata, on the Commodore 64 and 128. You may 
want to use the resuhing 
plots as an aid to academic 
investigation of the phe- 
nomenon: on the other hand, 
you can just run the program 
and enjoy the endlessly vary- 
ing graphics it produces- 
Background 

The program, 1 promise you, 
will provide some stunning 
graphic images. Unlike other 
forms of display such as 
games or art programs, this 
one generates graphics inter- 
nally in the computer, and it 
is amazing that applying a 
simple algorithm can create 
such a wide variety of re- 
sults. These images are more 
than just pretty faces, howev- 
er: they have brains, too. So that you can appreciate them ful- 
ly, please stay tuned for some history and philosophy. 

The Encyclopedia Britannica, 15th Edition, lists an automa- 
ton as any of various mechanical objects that are relatively 
self -operating once set in motion. It notes that automata are 
designed to arouse interest through their visual appeal, and 
then to inspire surprise and awe through the apparent magic 
of their seemingly spontaneous movement. Although written 
with a different application in mind, that description fits this 
program very well. 



The earhest references to mechanical automata date all the 
way back to the 4th Century BC in ancient Greece and China, 
and include such artifacts as moving models of birds and ani- 
maJs. Many interesting variations have appeared over the cen- 
turies. Of particular interest is the 'magician box' of a hun- 
dred years ago: in a curious portent of the computer age, a 
disk engraved with a question is inserted into a slot in the 
box. A tiny figure of a magician then comes to lite, and points 
with a wand to where the answer appears (on a tiny monitor, 
no doubt!) 




Figure 1: Code 1011303003 , seed Random 

Both red and blue are capable of asserting themselves as 
background colours. The result is a class 2 image wiih 
intricate vertical structures. The stable structures are 
established quickly in spite of a random start. Cycle lengths 
are 7 and 23. 



More recently, the term au- 
tomaton has been applied to 
robots and androids, and to 
other automatic devices that 
emulate human behaviour. 
Conicr\s Encyclopedia ex- 
tends the term to include 
computers undertaking such 
human-like activities as play- 
ing chess. 

By comparison, the cellular 
automaton has a considerably 
abbreviated history. The 
grand-daddy of modem com- 
puters, John von Neumann, 
began exploring self- 
replicating automata about 
1950. His explorations led to 
the concept of an infinite 
checkerboard and a set of 
transition rules acting on each of its cells, resulting in a more- 
or-less independent machine ttial could transmit information, 
or even duplicate itself. 

A popular implementation of this concept is John Conway/s 
invention of the game of 'Life\ This game is played on an 
unbounded two-dimensional grid playing field; if you don't 
have one of those handy, you can approximate it with some 
sheets of graph paper. In the initial slate (that is, on the first 
sheet of paper), some cells are 'on\ or coloured in, while the 
rest are 'off', or blank. The next sheet of paper represents the 
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second generation of this lifeforni^and ihe state of each cell is industrial applications uses a linear representation of its oper- 
govemed by a fixed rule which operates on the first genera- ating space, divided into cells or blocks. Vehicles are repre- 
tion, A new cell is 'bom' if exactly three of its eight neigh- senied as 'on' cells, ?in6 their progress through the system is 




Figure 2: Code 00230101 10, seed2..,3 

The classic triangular branching pattern is seen ai the top. A 
seed of 2 creates a green structure ilefl), while a seed of 3 
give a blue structure (right). The coUision area is marked by 
red dendritic intrusions, and blue prevails as the predominant 
stnuture. 



bours are occupied; an 
existing cell survives if 
Iwo or three neighbours 
are occupied. In all other 
cases» the cell dies of ei- 
ther loneliness or over- 
crowding. The game was 
explained to the public 
by Martin Gardner in ihe 
Scientific American of 
October 1970. By the 
February 1971 issue, 
Gardner was already 
able lo reptjri on a num- 
ber of interesting pat- 
terns and cycles that had 
been developed for this 
new procedure. Because 
the playing field is cellu- 
lar, and because each cell 
behaves autonomously 
once ser in motion, the 
term cellular automata was coined. 

Linear Cellular Space 

Of course, many different sets of rules could be developed 
and applied to Conway's game - different neighbourhoods, 
mLiltiple-state cells, and so on. Gardner also touched very 
briefly on a one-dimensional variadon of cellular space, used 
in his application to identify a 
palindrome. Here the initial cells 
occupy one fine of the graph pa- 
per; subsequent generations are 
usually plotted on successive 
lines. This results in a two- 
dimensional plot in which each 
generation's data is linear, and 
the second dimension (down the 
page) is time. 



Cellular automata inhabit a sim- 
plified universe in which space is 
reduced to an array of cells, and 
time becomes a series of discrete 
steps. This degree of abstraction 
permits modelling to take place, 
and automata do closely resem- 
ble a number of modem comput- 
er applications- Computer chess 
was previously mentioned, and 



traced through subsequent gener- 
ations by a complex set of safety 
rules- 

These models are fairly direct 
and straightforward; by compari- 
son, some of the recent interest at 
academic levels ranges from ab- 
stract to abstruse. Both Scientific 
American and Nature carried ex- 
tensive discussions of cellular au- 
tomata in 1984, by Brian Hayes 
and Stephen Wolfram. After 14 
years of development, the plots 
were beginning to resemble some 
of the images you see here. Pos- 
tulated applications included in- 
formation processing and trans- 
mission, simulation of crystals, 
and a better understanding of bi- 
ological processes (which are 
based on millions of cells each 
following simple rules, after all). Beyond this, suggestions 
that cellular automata could be applied to model languages 
could only be described as metaphysical at best. In December 
1986, Kenneth Perry presented an algorithm in Byte magazine 
for computer display of linear cellular automata, widi a more 
realistic main objective of creating graphics. 

The linear algorithm creates a display on a high-res screen. 

The firsi row of pixels 
represents the initial state 
of the cells, each of 
which can have one of 
four values, through 3, 
represented by different 
colours. As the array 
evolves, a new cell's 
state is determined by its 
three parents - the cells 
immediately above, 

above left, and above 
right. These three are 
added, resulting in a sum 
fj'om to 9. 




Figure 3: Code 0023010111 , seed 3113 

Only a single digit has been added to the code in photo 2, vet 
a much more complex image results. This includes a 
two-colour background and numerous short-cycle structures. 
Additional symmetrical patterns of considerable complexity 
are overlaid. 



of course it is played on a 
'bounded 2-dimcnsional cellular space', or checkerboard. 
Some other comparisons are Unear, such as railroad block 
control and computerized traffic signals. Each of these major 



The characteristic signa- 
ture of each automaton is 
contained in ifs inheri- 
tance rule, a ten-digit 
code that governs the 
evolution of cells. Each 
digit in the code corresponds to one value of the sum, the first 
digit represenring a sum of 0, the second a sum of I, and so 
un. For example, if die parent cells have values of 1, 3, and 2, 
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then Ihe sum is 6. With a prevailing rule of '0120123123', the 
new cell gels a value of 3. As subsequent generations evolve, 
a two-dimensional plot is created on-screen (remember that 
the second dimension is time, not space). 

The Program 

I promised we'd get to this eventually, and here we are. The 
program includes considerable improvements over previous 
incarnations, probably the most important of which is speed. 
It is fairly easy to write a BASIC program to implement this 
linear cellular algorithm, particularly in BASIC 7.0. There are 
200x160 multicolour points lo plo^ however, and about a 
dozen calculations for each, so the plot takes well over 15 
minutes. With all the peeks and pokes of BASIC 2,0, it would 
take much longer. No wonder the pace of scientific progress 
can be so slow! Watching a universe unfold at this rale gener- 
ates suspense that would make Alfred Hitchcock proud, but it 

is not conducive to produc- | 

tive research. The solution in 
this case is machine lan- 
guage, which plots the screen 
in less than four seconds, a 
considerable improvement. 

The program includes a num- 
ber of other features. You 
specify the code and the seed 
value for the initial genera- 

tionr If you wish, either can 

be supplied randomly. Tf the 
plot is developing nicely, you 
can continue it for another 
screen. For when you get it 
just right, a simple screen 
dump is included. 

Before you can enjoy these 
features, you will have to 
type the program in, choos- 
ing the 64 or the 128 version. Be sure to save a copy to disk 
before running it. Two special notes apply to the 64 version: 
this program modifies some pointers, and should not be saved 
after running. In addition, because the machine code follows 
BASIC, be careful not to add to its length when typing it in. 

When you run the program, it starts by giving a brief descrip- 
tion of cellular automata, and some instructions. While you 
are reading, the machine language is poked into memory. The 
program uses the digits 0, 1, 2, and 3 lo correspond to black, 
red, green, and blue respectively. Your first input is the 10- 
digit code for inheritance, each digit being to 3. At startup a 
sample code will be suggested, so just press return to accept 
it. In subsequent loops the previous code will be printed, 
which you can accept or replace with another from the table. 




Figure 4: Code 0103220121, seed Various 

Seed is selected to generate a variety of propagating 
siruaures. This code supports a variety of angled and vertical 
structures; one diagonal also spawns new verticals. When 
diagonals reach an edge or other obstacles, tthey may be 
absorbed, reflected, or generate other structures. 



more selective, the procedure is different for the 64 and 128. 
On the 64, you enter a value for one byte, 1 to 25,5, This byie 
will be poked into position on the first row, representing 4 
cells. If you enter 1, then a single cell with that value is creat- 
ed. A value of 255 creates 4 adjacent cells each containing 3. 
You also supply the column for this byte, 1 to 40. 

On the 128, the seed is much more flexible. You enter a siring 
of cell values, each through 3, up to 160 digits if you wish. 
You also enter a pixel position to 159, with 79 suggested as 
approximately the centre. All the cells are plotted, starting 
where you specify. 

The Menu 

As the image is drawn, 200 generations of the automaton are 
revealed to you. There will be a short pause to view the result, 
then a menu will be printed. To make a selection from the 

menu, just press the key 
shown (don't press return): 

S (new seed) 

You will be returned to the 
prompt for the seed for the 
first generation. The image 
will then be redrawn with 
vour new seed and the same 
code. 

R (random seed) 

Random cells will be created 
for the first generation, and 
the plot will be redrawn with 
the same code. 

M (more) 

The same evolution will be 
drawn for another screenful 

(199 more generations, since 

the last line will become the 

first one displayed on the new screen). 

C (new code) 

You get to enter a new 10-digit code, followed by a new seed 
value. The new plot will then be drawn. 

A (automatic) 

AutO'pilot! Make this selection, and the computer will choose 
both random codes and random seeds. Random automata will 
be displayed one after another, every 4 seconds, until you 
press any key to gel back to the menu. 

P (print) 

The <;urrenl image will be sent to your printer, unfortunately 
not in colour 



The next input is the seed value for the first generation. Just Q (quit) 

press R and return to get a random seed. If you want to be End the program. 
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Any alphanumeric key not listed here will relum you lo the 
graphic for a few more seconds, following which (he menu 
will return. 

The Screen Dump 



chaos. oEhers start from a random condition and quickly es- 
tablish order. Still ofher^ seem to symbolize the eternal strug- 
gle between good and evil, never quite resolving their ulti- 
mate personality. But then, of course, we shouM limit our- 
selves to discussion of their scientific merit. 



Since it is impossible to anticipate all printer and interface The images defy easy ciassificafion. With 4 values for each of 
comhmations. diis program is designed for a Cardco interface 10 digits, there are 4glOe, or 1,048,576 possible codes. Many 



and Gemini, Panasonic, or 
Roland printer - popular combi- 
nations. It will work unmodified 
with many other systems. If it 
doesn't work right at first, you 
may be able to make stmie ad- 
justments: 

• Set die interface for transpar- 
ent graphics mode, no line feed. 
Line 490 gives a secondary ad- 
dress of 5 to achieve this... 
change it to suit your interface if 
necessary (eg die Tymac needs a 
6). 

• Two commands in the pro- 
gram are 27,65,8 to set linefeed 
to 8/72 inch, and 27,75,64,1 to 
caH for 320 graphics characters. 
If your printer uses different 
codes, change these values in line 
1210. 




Figure 5: Code 0100132332, seedKandom 

A random seed produce!; two very distimt regimes ihat 
coexist side-by-side. This pattern /.y stable and is maintained 
through many generations. Repetitive vertical structures are 
also supported. There is a gradual tendency to reduce the 
number of distinct zones, an increase in entropy. 



of diese turn out to be 
trivial, but most produce 
usable results. Wolfram 
divides the patterns into 
four general groups, ac- 
cording to their perfor- 
manL^e after many gener- 
ations: 

Class 1 automata pro- 
duce plots that very 
quickly die out, and are 
basically of no interest. 

Class 2 codes quickly 
evolve to very stable 
structures, mostly stripes 
and cyclic structures, re- 
gardless of their starting 
configuration (of very 
limited interest). 



Class 3 automata pro- 
duce patterns that appear to be chaotic (but note they are not 
• If after all this the printout is double- spaced, change the random!). These structures typically grow indefinitely, 
DATA item 10 to a zero in line 1210. 

Class 4 codes have a complicated 
balance so that they neither grow 
indefinitely, nor contract and die. 
They generally include complex 
structures that are cyclical in na- 
ture, and often propagate across 
the field. 



■ Tf your printer is one 
of those that print each 
row of graphics upside 
down, change the value 
lis in line 1230 to 54. 

• Finally, if you still 
have a Commodore 1525 
or such... my condo- 
lences. However, you 
will see listed some re- 
placement hues to get a 
printout. 

The Results 

As I hope you can infer 
from the accompanying 
illustrations, the graphics 
images arising from the- 




Perry considers only Class 4 to 
be worthy of further investiga- 
tion: certainly these codes offer 
ample ladtude for experimenta- 
tion and mathematical study, 
lending themselves to consid- 
erable formalization of their 
structure. However, personally I 
find that Class 3 automata offer 
at least as much potential for ex- 
ploration. One Class 3 code will 
often support several different 
patterns; depending upon seed 
se automata can be amazingly beautiful. With minor adjust- values and boundary conditions, the results may range from 
ments to the code, you can get images that are simple, com- highly ordered structures, lo seemingly random textures, to 
plex, bright, sombre, or confounding. While some decay to cellular battlefields where rival patterns fight over territory. 



Figure 6: Code 0110133232, se€d33L..l..J33 

This code is only slightly changed from photo 5. The 
blue-green regime has a very different character as a result, 
and now supersedes the red area in only 2-300 generations. 
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Because of this variety, in fact, it becomes very difficult to 
place these automata definitively into one category or anoth- 
er. For this reason. I am inclined to group them further ac- 
cording to the types of pattern observed, ahhough even this is 
not always defmitive. The table gives a number of examples 
of different results. 



with so many automata. These are the minimum requiremenis 
for the branching to occur: 



red triangles 
green triangles 
blue triangles 



OlOOxxxxxx 
0\2x0x0xxx 
Oxx3xxOxxO 



The Source Of Patterns 

You will have more success creating images with a little ob- 
servation of how patterns are generated. The first digit of the 
rule governs the background; it is commonly a zero, causing 
blac^ to prevail as background. If a different digit appears> 
then another colour will be generated. In order for this second 
colour to be sustained as the background, however, it must al- 
so be able to inherit from itself- This requires that sums of 2 
and 3 limes the background colour also produce the same 
state (e.g, for green to prevail as background, the digit 2 must 
result from sums of 0, 4, and 6): 



sum values 

black background 
red background 
green background 
blue background 



0123456789 

Oxxxxxxxxx 
1x11 xxxxxx 
2xxx2x2xxx 
3xxxxx3xx3 



It is apparent from this that red is ai least partly compatible 

with the other colour backgrounds, so codes like 1011303003 

will result in red and blue duelling over background rights. 

Blue wins in this case, but 

because of the fine balance 

between the two, a Class 2 

image is created quickly 

from a random seed, with red 

structures of cycle length 7 

through 23 sustained on a 

blue background (see figure 

1)- 

The simplest spreading pat- 
terns are those in which a 
single colour propagates it- 
self; for example, if the digit 
1 appears in the code corre- 
sponding to a sum of 1, then 
red will spread across the 
field in both directions at a 
rate of one cell per genera- 
tion. This is the fastest rate 
that any infomiation can be 
Iransmiited, and is generally 

referred to as the 'speed of light'. Furthermore, if 7.eroes are 
present for sums of 2 and 3, then a branching aigoritlun is 
created. As the pattern spreads from a single point, it grows 
branches back in toward the centre. As these meet, sums of 
two and three are created, and their zeroes guarantee that the 
branches will cancel one another out. This results in the char- 
acteristic triangular pattern seen in photo 2, and occurring 



Since the digits marked 'x* don't matter, it is ai^mrent that 
there are many codes supporting this pattern, at least 4096 for 
each colour. Many of these will support other structures as 
welK leading to some interesting dual patterns. It is also clear 
that the green and blue patterns can co-exist with one another 
(in the form 0x230x()xx0). Figure 2 uses this approach, 
adding a touch of red where the two structures coHide, 

Complex Patterns 

Greater complexity can be introduced through at least three 
measures. The first of these is the rule itself, and many exam- 
ples are given in the table. Once you become familiar with the 
operation, you will probably want to try creating your own 
rules; for example, adding a single 1 to the simple code of 
figure 2 produces thecomplexity of figure 3. 

Second, there is the .seed, or first generation. The progmm 
will suggest starting with a single cell in the centre, but you 
can choose seeds more specifically in order to draw out spe- 
cial features from an automaton. In the alternative, a random 
seed will usually display many of the capabilities very quick- 

ly» and introduce a great deal 




Figure 7: Cotfe1031 102332. seed 11 

This auiomaton supports a wide vanety of different paiierns 
and struciures. Black siripes, wandering red patterns and 
hiuc'-^reen triangles ali compete for territory. No clear 
mnner can he declared after thousands of generations. 



of complexity in the process. 

The third form of complexity 
is somewhat artificial, and 
that is the border condition. 
In principle at least, the au- 
tomata should be viewed on 
an infinite field. Our screen is 
considerably less than infi- 
nite, being 160 pixels wide, 
so some mathematical impu- 
rity is inevitably introduced. 
Different patterns react to the 
border in different ways; the 
triangular patterns we have 
seen simply stop there, but 
even this alters the overall 
pattern. As shown in figure 4, 
some patterns will bounce or 
otherwise modify themselves 
when meeting an obstruction, 
and you can position the seed carefully so as to create specific 
effects. In most cases, however, the disturbance reflecting 
from the edge eventually serves to transmit chaotic conditions 
right across the entire field. This is a primary source of disor- 
der in Wolfram's Class 3 automata. 

In theory, this disturbance could be avoided by establishing a 
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pseudo-playing field in memory, much wider than the screen. 
A field width of, say, 1000 pixels, wiih only the centre portion 
copied to the screen, would not be a burden on the computer's 
RAM. This approach would pennit most patterns to be fol- 
lowed for at least 800 generations before a reflection moving 
at the speed of lighi could return to the visible area. (This ex- 
ercise is Jeft to the reader!) 

It is also lef! to the reader to explore the many patterns con- 
tained in the table, as well as the million or so other possibili- 
ties. I will just express my personal fascination with the many 
automata having two distinct regimes, of which figure 5 is but 
one example- Sometimes these regimes coexist peacefully 
side-by-side; some fighi back and forth, possibly producing a 
victor; sometimes one patiem gradually infuses the other, 
rather like 'invasion of the body-snatchers'. Each is unique 
and fascinating. 

In Conclusion... 

The patterns produced by these automata can be both fascinat- 
ing and beautiful. Their beauty is more than skin deep, how- 
ever, as ihey are valid mathematical phenomena in their own right. This program will offer you hours of experimenting and 
promises rewarding results, whether your interest is academic or otherwise. Send in your best results: Td be very interested to 
see what you come up with. And when you get tired of all that intense experimentation... put the program on auto-pilot, relax, 
and enjoy the video wallpaper! As for me, I^m going to try some of these seeds in the garden, to see if I can grow an infinite 
crop of cellular automatoes. 




Figure S (''Stingray''): Code 01I03J030I, seed22 

A spreading blue line spawns blue bars, which in turn ^ive 
rise to a red triangular pattern. This pattern is terminated by 
(he edging, giving rise la this charaaeristic shape. 



A Table of Sample Rules 



Code Seed 

(R = Random) 

Class 1 (Decay quickly) 



Product 



0201023002 R 



extinct in a few generations. 



Class 2 (Organize to stable state) 



1011303003 R 

0331122230 R 
0330312233 R 

0102223130 R 

0201300003 R 
0003111003 R,3.33 
2233020233 R.I, 11 

3032132333 R 



organizes into cyclic red structures on blue 

(fig. 1) 

immediate fomiatis^n of red & green stripes 

evolves to green Si. blue stripes, vertical red 

structures (seed 3) 

chaos organizes to striped wallpaper, cyclic 

patterns (try seed II) 

evolves to long-cycle multicolour structures 

red/blue triangular; broad geometric pattems 

ice floes - blue/green blocks & patterns; rapid 

evolution to stripes 

in Slant self-organizadon as blue stripes, 

red/green patterns 



Class 3 (Growing, chaotic) 

00230101 10 2,3, 23 blue & green triangular, red dendritic in 

combined areas (tig. 2) 

00230101 11 3,R complex trailing pati ems on red & blue 

wallpaper (fig, 3) 
0221213321 R blue and green pattenis over red blocks- 

3 same pattern, but ordered 



0003232012 R,33 

0230210313 11 

0311302133 11, R 

3300011033 R 

0103(X)2233 1,R,33 

11103301U R 

0123310203 1,3,H 

3333020331 R 



multicolour spreaders, green/black vertical 
stripes, evolves chaos 
blue shapes on multicolour, gradually 
expands for 600+ generations 

irregular red areas, blue overlay, vertical 
structures 

metallic crystal structure in red & blue, 
blue/black patterns, red top; blue/green stripes 
(a palindrome!) red/blue dendritic structure 
over red/black blinds 

blue triangles, red/green dendritic structure 
blue/green diagonal structures on red/black 



Class 4 (Complex Structures) 



0103220121 R,ll 



2221213321 
0201103212 
2001313120 

0300123302 



0230332101 
0210133310 
0311301203 
0230323130 

0020130211 



vertical, angled structures (seeds 22,233023, 

10202,2220123; fig. 4) 
3,R blue/green vertical & angled structures on red 

3,33,R red/green long-cycle structures on black 
R,ll, black diagonals, red diamonds, blue striped 
22,3 background (cover) 
1.33,101,232,3132,2331,etc 

wide variety of venical and diagonal 

structures, pendants 
2,22 multicolour pattern, black triangles 
R,ll,2 vertical & angled structures organize into grid 
1 , 1 1 ,22 blue/green structures and pendants on red 
R, 11,232,23 303,3l3,eic 

wintery structures, infill, pendants, etc. 
22,2,23, red, green triangular; overlays; vertical 
322,131 and angled structures. 
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023001 1133 1,11; amorphous mtiiticolour siruciure thai may 
23 at lOU survive or not (from Wolfram) 

0120133230 !; spreading red 'roof, spawning many 

various blue/green structures (from Perry) 



Two-regime images 

0100132332 R 

0110133232 R, 

232,eic 
1031102332 R,l, 

22,33 
0001231232 R 
0321200311 R,223 
0233100120 R,ll,22 
I(K)13302L1 R,l, 
2222 
1300122313 R,2 

3303022133 R,33 
3100323120 22,1 

0120123123 1,202.R 

2033210201 i.33 

0132000120 2,3,1, 
2003 

0033220110 233,22, 
222 

0103310132 11,22,3 

0122022331 R.l,33 



Devolution to primordial ch;ko«j 



coexistence: red triangular; green tri's on 

blue; verticals (fig. 5) 

non-coexistence of same regimes (fig. 6); 

many variations 

red stripes, blue/green triangles, red/black 

dendritic, long cycles (fjg. 7) 

multicolour hash; black; Jong-cycle structures 

green triangular, infusion of red/blue dendritic 

blue triangular, infus^on of red/green dendritic 

red triangles, blue dendritic infusion with 

green 

blue, green patches on red stripes, vertical 

structures 

blue Sl green blocks, strong diagonals 

many black 8i blue textures; seed 1 adds 

green dendritic 

startup screen; red/green triangular, 

blue/black stripes 

green jumble; red/blue stripes; some vertical 

structures 

blue, green triangular patterns, joim 

occupancy of space 

fight for territory between blue triangular, 

green/red herringbone 

joint occupancy of red/blue wallpaper, black 

dendritic structure 

green/black triangles; blue/green regime 

struggles, but loses 



0130312131 1 
11 



strong red triangle pattern, devolves to chaos 
retains structure, cycle length of 16S 
(on 64: seed 20 at positionn 19) 
0113233102 11,3,33 regular stripes and patterns, decay to random 
0223320)00 2,3 blue or green triangular; green decays 

0331210300 33,3 blue triangular, loses to red/green invasion 

Suitable rorTranimg 

01 10310301 22 stingray: red triangular, blue bars and edging 

(fig. 8). 
0132320233 R, 11,33 ice palace: blue blocks, green crystals 
1233233320 11,R mach waves: green vertical, red/blue stripes, 

blue waves (fig. 9), 
0332221003 33,1,22 green/red window blinds. bJue/black 

dendritics; eventually stable 
0020133020 11 caves: green/red grid above, blue caves and 

triangular pattern below 



More 



0112002100 

3002110310 

3102033003 

2310131211 

3131120030 

3132230102 (seed: 11,22) 

0023320103 (seed: 11,33,R) 



6201310313 
3103020001 
1200020231 
3011300332 



1132230002 
<K)2 1233023 
3201032322 
3320003011 



0233000001 
3012022322 
0213131022 
3320010231 



1302023302 (seed; l,n,2,R) 
0111212323 (seed: 1331) 
3320012010(seed:33) 



• Note: Seed values are for the 128. Here are equivalents for the 64: 
11:5 22: 10 23:11 33:15 101:17 131:29 

202: 34 222: 42 232: 46 233:47 313:55 322: 58 
1331:125 2003:131 2222:170 2331:189 3132:222 



Listing 1: "Automata 128" 

DM 10 rem automata 128 by ian adam 

EN 20gosub650 

a 30: 

GM 40 do:rem main control loop 

GK 50: 

CN 60 prim tab(6) r$"[up]":input"code";r$ 
KG 70a=5887:fori^l to 10 

DH 80pokea+i.val(mid$(r$,i,l))and3 

OF 90 next 

IN too : 

LM 110 prim "seed vaUie l|left|[left]ncft]";:input bS 

MP 120 ifval(left$(b$,l))=0 then 250 

ND I30a=160-len(b$) 

DK T40 print "position ( "a") 79[[efll[lefij[lefljlleft]";:input a 

MM 150 graphic 3J 

CP 160 locate a,0:fori=l tokn(b$) 

,NB 170 draw val(midS(bS,i,l)) and 3,-K).0 

El 180U>calc+l,0:next 

CD 190: 

HK 200 trap 230:sys 5900:rem plot routine 

GE 210: 

AF 220sI-200 

CC 230 for i=l to s!:ifpeek(208)=0 then next:print"s new seed r 

random seed mmore":print"c new code a automatic p print q 

quit";:graphic 4„23 
II 240gefkeyb$:print 

GJ 250 on instr("srmcapq",b$) goto 280,300,340,360,380,490,610 
IK 260 graphic 3:sl=700;goio 230 
CI 270 : 

JO 280 graphic 4„23:goto 110:rem new seed 
GJ 290: 

HF 300 r=255:graphic 3,l:rem random seed 
JI 310 for i=8192 to 8504 step 8 
LF 320 poke i,md(i)*r:iiext:goto 200 
OL 330: 
ND 340 graphic 3:sshape sS,0,199,l59,l99:gshape sS,0,O: 

goto 2CX):rem copy li^i line 
CN 350: 

JG 360 graphic 4„23:loop:iem next code 
GO 370: 

MK 380 graphic 3:r=255:do:r$="":rem automatic codes 
GM 390 for i-5888 to 5897:a=rnd{i)*4 
CJ 400 poke i,a:r$=r$+chr$(48+a):next 
OA 410: 

HP 420 for i=8 192 to 8504 step 8 
JC 430 poke i,md(i)*r:ne\t:rem seed 
MC 440: 
BB 450 sys 5900 
AE 460: 

CJ 470 loop until peek (208): poke 208,0:goto 230 
EF 480: 
PE 490 graphic 3:open 4,4,5: 

rem secondary address = 5 for graphics, no line feed 
AC 500 aS=chr$(ia):emd 4:printaS:sy^ 6060:printa$ 
LG 510 printchr$(27)chrai(64):rem reset 
KG 520prima$chr$(14)"code: "rSaS 
BI 530 prim#4:close 4;goto 230:scrcen dump 
MM 600: 

GB 610 graphic 0:end 
AO 620: 

PK 630 :rem start-up sequence 
EP 640: 

CM 650 bank I5:colorO,l:co]or 1,1 1:color2,14:color3,15:co]or 4,1 

lA 660: 

EC 670 print" [clr] [white] cellular automata for the 128 

PG 680 print" [down] this program creates complex 

GL 690 print" geometric artfonns on the screen. 
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OH 700 prini"the image Ls generated line-by-line, 

or 710 phm"accDrding to these rule.s: 

FD 720 pnnt"[downJ[yel|- a pixel has a colour value of 0,1,2,3 

PH 730 pnnl"- the values of 3 adjoining pixels 

FF 740 print" in a line are added. 

DG 750 print"- the sum (0 lo 9) is used to select a 

KG 760 print" new colour from the code you specify. 

ME 770 prim"- this new colour is plotted as the 

MB 780 print" pixel in the line below. 

LG 790 print"- the code has 10 digits, corresponding 

AC 800 prim" to the 10 values of the sum (0 - 9). 

PD 810 print"|down)[wht]automata were introduced in scientific 

JM 820 print "american in 1971 & 1984, and a version 

PO 830 print"appeared in byte magazine in 1986. this 

GO 840 print'enhanced version for the 128 is by 

LH 850 prini'ian adam & transactor magazine, 1987. 

DE 860ifpeek(5900)-160thengosub 1100 

DO 870print"[downJ[yeI| press akey!":getkey a$ 

EO 880: 

MA 890print"|c]rj[downl instructions: 

DC 900prim"[down||wbt]youemer a 10-digit rule, using only 

NN 910print"the digits 0. 1,2, and 3, 

EB 920 print"[down]next, enter a seed value, which 

DH 930 prini"is plotted as the lop line. 

AN 940 prinl"if you enter r, a random seed is used. 

HP 950 print"if you enter seed numbers, you must 

GA 960 prinfalso supply their position on the line. 

DA 970 print" I down] [yel]after plotting, press: 

NO 980 print"- s to enter a new seed 

NM 990 print"- r for a random seed 

CB 1000 print"- m more of the same plot 

LE 1010 prim"- c enter new code 

OL 1020 print"- a automatic code generation 

DM 1030 print"- p send pattern lo printer 

BC 1040 print"- q to quit. 

JB 1050 print" |downl[wht|ihe cun^nt code will be printed like 

HC 1060 prini"this. make any changes, & press retum:|down] 

FA IO70r$="OI2Ol23123 

EF 1080 return 

GL 1090: 

EM T 100 for 1^5900 to 6l32:read a:poke i,a;next 

CH 1110 i-cturn 

EN 1120: 

OA Il30daiai60, 32.132,251,132,253,160, 1 

PK Il40da;al32,252, 136, 132,250, 162, 199,134 

EA llSOdaia 166, 162, 39,134,167,132,169,177 

OL I]60data250, 133, 168, 165, 167,240, 4, 160 

KM II 70 data 8.177,250, 10, 38,168, 42, 38 

DN Il80datal68, 42, 41, 3,133,170,160, 4 

KA Il90datal69, 0, 38,168, 42, 38,168, 42 

IN 1200data 72, 101, 170, 101, 169, 170, 165, 170 

CE 1210datai33, 169, 104, 133, 170, 189, 0, 23 

HN 1220 data 6,254, 6,254, 5,254,133,254 

NP 1230datal36,208,221, 145,252, 24,198,167 

CH 1240data 16, 40,162, 2,181.250, 41, 7 

KP I250data20l, 7,240, 15, 56,181,250,233 

AM ]260data 55,149,250,181,251,233, 1,149 

PP 1270 data 25 1 , 208, 6, 246, 250, 208, 2, 246 

OB 1280 data 251, 202, 202, 240, 223, 198. 166, 208 

DB I290dafal44, 96,162, 2.181,250,105, 8 

NH 1300 data 149, 250, 144, 3, 246, 251, 24. 202 

IC 1310 data 202, 240, 241, 76, 35, 23, 27, 65 

KL 1320 data 8, 13, 10, 27, 75, 64, 1, 

KK 1330 data 160. 32,132,251,160, 0,132,250 

NM 1340 data 160, 25, 132,252, 160, 0, 185, 162 

PB I350dala 23, 32,210,255,200,192, 9,208 

JP 1360data245, 160, 40,132.253,160, 7,177 

FG 1370 data 250, 162, 7, 42,118,166,202, 16 

HM 1380 data 250, 136, 16,243,169, 7,170, 56 



KF 1390 data 101,250, 133,250,144, 2,230,251 

EM I400daial8l,l66, 32,210,255,202, 16,248 

BO I4l0data 198,253,208.217, 198,252.208, 196 

FB 1420 data 96 

Listing!; "Automa(a64" 

KM 10gosub650 

CC 20 automata 64 by ian adam 

CJ 30: 

LH 40 : main loop 

GK 50: 

CN 60 print lab(6)rS"|upl":iiiput"cotle";r$ 

KG 70a=5887:fori=l to 10 

DH 80 poke a+i,val(mid$(r$,i,l)) and 3 

OF 90 next 

IN 100: 

LM no print "seed value l[lcft][lelillleft]";:inputb$ 

CO I20ifval(h$)=0then250 

LN f30prini "position (1-40) 20[lcflj[leftl!left)lleflJ";:inputa 

PH 140 gosub 540:for i=8192 lo 8504 step 8:pake i,0:next 

GL i50pokc8l84+8*a.val(bS)and255 

EB 160: 

JP 170 sys 5900 

IC 180: 

PL 190 for i=0 to 999:if peek(k) then 240 

MN 200 ne\t;gosub590:pnnt"m more of this p print this 

DF 210 print"s new seed r random seed 

GN 220 print "c new code a automatic codes 

NG 230 print"v view plot qquit"; 

PF 240 wait k,7:getb$ 

CL 250 for i=] to 7:if midS("snncapq".iJ ) <> bS then next 

LI 260 on i goto 290,310,330.370.390,490,610 

DD 270 gosub 540:goto 190 

Ml 280: 

FE 290gosub590:gotonO:newseed 
AK 300: 

CK 310r=:255:deffns(x)=md(x)*r:goto340:randomsced 
EL 320: 

FM 330 r=7687:def fns(\)=peek(r+\):rem copy last line 

HK 340fori=:8l92to8504step8 

HE 350 poke i.fns(i): next: gosub 540:goto 170 

MN 360: 

CG 370 go^iub 590:goto 60:new code 
AP 380; 

MO 390 gosub 540;r=255:forj=0 to l:r$='":rem automatic 
CO 400 for 1=5888 lo5897:a=md(l)*4 
FK 410 poke l,a;r$=rS-K:hr$(48+a):next 
IB 420 : 

KA 430 for 1-8192 TO 8504 step 8 

DB 440 poke ],md(l)*r:nexl 

GD 450 : 

LB 460 sys 5900 

BC 470j=peek(k):next:pokek,0:goco 190 
EF 480 : 

GK 490 gosub 540:a$=chr$(l0):open 4,4,5 
:rem 2nd addrs grafix, no If 

EF 500 cmd4:sys 6060 

CD 510prinia$a$chr$(14)"code: "r$a$a$ 

JM 520 pfint#4:close 4;goio 190 

GI 530 ; 

LN 540 if peek(v)=59 then return 
MC 550 poke v,59:poke v+5,216:poke v+7,24:rem hires 
PP 560print"[homel[lt. blue]";;fori-l tolll:prim 
"(iSrsj ■■;;next 

DK 570 poke 2023,173:poke 56295, 14: re turn :colors 
IL 580 : 

IN 590 poke v,27:poke v+5,200:poke v+7.21:print:relum:Iext 
MM 600: 
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LL 610sys65409:end 

AO 620: 

FL 630 ; slait-up 

EP 640: 

FB 650 poke53280.0:poke5328 1 .0:poke46.64:clr:k=l 98:v=5.3265 

lA 660: 

KM 670 print" [clr][ white] cellular automata for [he 64 

PG 680 print" I down] this program creates complex 

GL 690 prin ["geometric artforms on The screen. 

KP 700 prini'ihe image is generafed line-by-line 

01 710 print" according to these rules: 

HF 720print"[down]|yellow]- a pixel has a colour value 0,1,23 

LC 730 prim"- add the values of 3 adjoining pixels 

KN 740 print" in a line. 

LF 750 print"- the sum (0-9) is used to select a 

KG 760pHnt" new colour from the code you specify. 

ME 770 print"- this new colour is plotted as the 

OI 780 prim' pixel directly below. 

LG 790 print"- the code has 10 digits, corresponding 

AC SOOprint" to the 10 values of the sum (0-9), 

PD 8]0prim"[down]|white]automala were introduced in scientific 

JM 820 print'american in 1971 & 1984, and a version 

PO 830 print "appeared in byte magazine in 1986. this 

MF 840 print "enhanced version for the 64 is by 

LH 850 pnnt"ian adam & transactor magazine, 1987, 

DE 860 if peek(5900)-160 then gosub 1 100 

PE 870 print" [yellow ]press return! ":inputa$ 

EO 880: 

MA 890 print" [clr|1 down I instructions: 

AP 900prini"[downJlwhiie]youenter a lO-digii rule, using 

NN 910 print"the digits 0, 1,2, and 3. 

BI 920 print" [down]nexl, enter a seed value which 

HH 930 prim"is plotted on the top line. 

AN 940 print'if you enter r, a random seed is used. 

El 950 print "if you enter a seed#, you must 

NH 960 pnnl"also supply its position on the hne, 

DA 970 print" IdownJIyellowlaller plotting, press: 

lO 980 print"- s enter a new seed 

NM 990 print"- r for a random seed 

CB 1000 print'- m more of the same plot 

LE 1010 print"- c enter new code 

OL 1020 print"- a automatic code generation 

DM 1030 print"- p send pattern to printer 

GM 1040 print"' q quit 

BE 1050 prim "[ down] [whitelihe current code will be shown like 

JO 1060 prini'this. make any changes & press retum:[down] 

FA 1070r$="0120123123 

MK 1080 goto 60 

GL 1090: 

EM n00fori-5900to6132:reada:pokei,a:next 

CH 1110 return 

EN 1120: 

OA 1130daial60, 32,132,251,132,253,160, 1 

PK 1140 data 132, 252, 136, 132,250, 162, 199, 134 

EA U50daial66, 162. 39,134,167,132,169.177 

OL ! 160 data 250, 133, 168. 165,167,240, 4,160 

KM inOdaia 8,177,250, 10, 38,168, 42, 38 

DN 1180datal68, 42, 41, 3,133,170,160, 4 

KA 1190 data 169, 0, 38, 16S, 42, 38,168, 42 

IN 1200 data 72, 101, 170, 101, 169, 170, 165, 170 

CE 1210 data 133, 169, 104, 133, 170, 189, 0, 23 

HN 1220 data 6, 254, 6, 254, 5, 254. 133, 254 

NP 1230 data 136,208,221, 145,252, 24,198,167 

CH 1240data 16, 40,162, 2,181,250, 41, 7 

KP t250data20l, 7.240, 15, 56.181,250,233 

AM I260data 55,149,250,181,251,233, 1,149 

PP 1270 data 25 1 , 208, 6, 246, 250, 208, 2, 246 

OB 1280data251,202.202,240,223, 198, 166,208 

DB 1290 data 144, 96,162, 2,181,250,105, 8 



NH 1300 data 

IC 1310 data 

KL 1320 data 

KK 1330 data 

NM 1340 data 

PB 1350 data 

JP 1360 data 

EG 1370 data 

HM 1380 data 

KF 1390 data 

EM 1400 data 

BO 14IOdaia 

FB 3420 data 



149,250, 144, 
202.240,241, 
8, 13, 10, 
160, 32, 132, 
160, 25, 132, 

23, 32,210, 
245, 160, 40, 
250, 162, 7, 
250, 136, 16, 
101,250,133. 
181, 166. 32, 
198,253,208, 

96 



3, 246, 

76, 35, 

27, 75, 

251,160, 

252, 160, 

255, 200, 

132.253, 

42, 118, 

243, 169, 

250, 144, 

210,255, 

217. 198, 



251, 24,202 

23, 27, 65 

64, 1, 

0, 132,250 

0, 185, 162 

192, 9,208 

160, 7,177 

166,202, 16 

7, 170, 56 

2,230.251 

202. 16,248 

252,208. 196 



Listing 3: "Lines for 1525" 

GA 1 rem lines for 1525 

GL 49agosub540:a$-chrS(IO):open4,4:remcbm 1525 

GM 1 100 for i=5900to6134:read a:poke i,a:next 

CF I310data202,240,241. 76, 35, 23, 13, 8 

GP 1 320 data 0, 0, 0, 0, 0, 0. 0, 

IB 1350daia 23, 32,210,255,200,192, 2,208 

MF 1370 data 250, 162, 7, 42, 54,166,202, 16 

KP 1400 data 181, 166, 9.128, 32,210,255,202 

CB 1410 data 16,246, 198,253,208.215. 198,252 

OP 1420 data 208, 194, 96 

Listing 4: ''autoraata.src" 



KB 100 : 


*****:!■*****#******* 


MJ 110 : 


** 


■!■*■ 


PH 120 : 


; ** cellular 


** 


PL 130 : 


, ** automata 


** 


KL 140 : 


** 


*■!■ 


ME 150 : 


*ii.#**+***:t.ii.**^***** 


GB 160 ; 






AC 170 ; 






KC 180 : 






PN 190 : 


i geometric computer 


CN 200 : 


; artforms 




IE 210 : 






HP 220 : 


; for the 




PO 230 : 


; commodore 64 & 128 


GO 240 : 






AA 250 


; by ian adam 




GL 260 


; Vancouver be 




EI 270 






LD 280 


; march 1987 




U 290 






CK 300 






FB 310 


; the .screen image 


is plotted 1 


CM 320 


; ine at a time, each pixel 


PJ 330 


; depends on the sum of the 3 


NJ 340 


; pixels above, using a preset 


FH 350 


; code supplied by 


the user. 


ON 360 






JC 370 


zp -$a6 


;8 bytes tempo 


GM 380 


rows =$a6 




FB 390 


column =$a7 




OJ 400 


bits =$a8 




m 410 


aval =$a9 




IK 420 


bval =:$aa 




KF 430 


adread =Sfa 


;read address 


JF 440 


ad writ -Sfc 


; write address 


MO 450 


output =$fe 




MA 460 


screen =$2000 




IJ 470 


bsout =$ffd2 




GF 480 


1 




MN 490 


*=sn(XJ 


;same for both 
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KG 500 


V 
t 




BB 


1190 




rol 


bits 


;gel one pixel 




CG 510 


axles *=*+10 


;these are the rules 


CL 


1200 




rol 


a 






lA 520 




; for plotting pixels ( 10 bytes) 


HJ 


1210 




rol 


bits 






II 530 






GM 


1220 




rol 


a 






GO 540 


. ***#*#**#:+.*»********■*+:+,*# 


IC 


1230 




pha 




;this pixel is cval 




EF 550 


. ** 


«4> 


OE 


1 240 ; 












CB 560 


; ** sianplouinghcre 


** 


CO 


12,^^0 




adc 


bvai 


ifomi sum of 3 pixels 




IG 570 


■ ** 


** 


PF 


1260 




adc 


aval 


;(carry is clear) 




OA 580 


. *:{.#*#**#»■#*#+;;*+***#**#+:#* 


BM 


1270 




tax 








EM 590 






GH 


1280 ; 












Bl 600 


*=$l70c 


ifriendly address (5900) 


BC 


1290 




Ma 


bval 


;shift records over 




IN 610 






Fl 


1 300 




sia 


ava 






AE 620 


; set up pointers 




JL 


1310 




pla 




;get cval back 




MO 630 






KJ 


1320 




sia 


bval 






NN 640 


Idy #>screcn 


;set addresses 


IK 


1330 ; 












HM 650 


sty adread+1 




NF 


1340 




Ida 


codes .x 


igel new colour value 




DG 660 


sty adwrit+l 




KC 


1350 




asl 


output 


;make room in byte, & 




FC 670 


Idy #$01 




NC 


1360 




as 


output 






KI 680 


sty ad writ 


;wri[eto$2001 


HA 


1370 




ora 


output 


;pui pixel in stream 




NG 690 


dey 




MD 


I3K0 




sta 


output 






BM 700 


sly ad read 


:read S2000 


EO 


1390 ; 












MD 710 


7 




IJ 


1400 




dey 




:move to next pixel 




EK 720 


Idx #$c7 




DB 


1410 




bne 


pxloop 






DK 730 


StX TOWS 


;199rows todo 


CA 


1420 ; 












KF 740 


1 




DL 


1430 ; 


finished pixel loop for 






lA 750 


; setup for each row 




HL 


1440 ; 


byte, so output the result: 




OG 760 


^ 




AC 


1450 ; 












GB 770 


Slartr ld\ #$27 


;40 bytes per line 


OI 


1460 




sta 


(adwFil),y 






AB 780 


SIX column 




ED 


1470 ; 












MI 790 


t 




PO 


1480 : 


update addresses: 






JC 800 


; aval is pixel above & left 


IE 


490 ; 












OE S 


; bval represents pixel above 


CF 


1500 




clc 








LP 820 


; cval is pixel above & ri, 


Bbi 


BD 


1510 




dec 


column 


; where on screen? 




EL 830 


t 




MI 


1520 




bpl 


oidrow 






OF 840 


sty aval 


;aval = 0lo start row 


AH 


1530 ; 












1 m 850 






MA 


1540 ; 


here because end of row, so 




JN 860 


; prepare one byte ai a lime 


EI 


1550 ; 












MN 870 


t 




PH 


1560 ; 


update pointers to start next row 




ME 880 


slarlt; Ida (adread),y 


;get byte above 


IJ 


1570 ; 












MD 890 


sia bib 




PF 


1580 




dx 


#2 


;do adwril finst 




KP 900 


1 




LM 


1590 t 


lewrw 


1 Ida 


adread,x 






IP 910 


Ida column 




DO 


1600 




and 


#7 






LH 920 


bcq gel I St 




JL 


1610 




cmp 


i#7 


;chcck if bottom of block 




CP 930 


;note: we need the first p 


\\t\ 


ID 


1620 




beq 


newlin 






ND 940 


;from the next byie to the right, 


EN 


1630 ; 












BA 950 


;to be cval for the 4th pixel of 


GF 


1640 




sec 




;next pixel row, subtract 3 1 1 




BE 960 


;this byte, on the last screen 


AE 


1650 




Ida 


adread,x 






IL 970 


;block of a row. counter 


'column* 


EN 


1660 




sbc 


#$37 






GT 980 


; will be zero, in this case. 


CJ 


1670 




sia 


adread,x 






EF 990 


;a will be put into variable 


PI 


1680 




Ida 


adread+1, 


X 




PE 1000 


;cval for the last pixel in 


the 


HJ 


1690 




sbc 


#1 


f 




FL 1010 


;row. if not the last block 


., then 


BO 


1700 




sta 


adread+U 


X 




PO 1020 


;get a pixel from the next block: 


DE 


1710 




bne 


newrw2 






MH 1030 


1 




OC 


1720 ; 












LG 1040 


Idy #8 




LF 


1730 1 


newlin 


inc 


ad read »x 


;if bottom of 




AK 1050 


!da (adread),y 




PB 


1740 




bne 


newrw2 


;block, just add 1 1 




KI 1060 


7 




FP 


1750 




inc 


adread+l. 


X 




PI 1070 


get 1st asl a 




GF 


1760 ; 


• 










FA 1080 


rol bits 


;exlrii pixel into bits 


FM 


1770 1 


[iewrw2 dex 




;now doadread 




EE 1090 


rol a 




LK 


1780 




dex 








JC 1100 


rol bits 




EK 


1790 




beq 


newrwl 






DN 1110 


rol a 


;and 1st pixel rolls 


OH 


1800 


1 






- 




DA 1120 


and #3 


;inio a, then 


NH 


1810 




dec 


rows 


;ready for next row 




GP n30 


sta bval 


;.„into bval 


MJ 


1820 




bne 


startr 






KG 1140 






CB 


1830 




rts 








CA 1150 


; pixel loop for one byte 




GK 


1840 












OP !160 






OB 


1850 


; here because in middle of row 




GF 1170 


Idy #4 


;4 pixels 


KL 


1860 












AH IIKO 


p\1oop da #0 




KK 


1870 


; so move to next byte 
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OM 1880 

PB 1890 

CO 1900 

MO 1910 

LN 1920 

GJ 1930 

FK 1940 

NL 1950 

OB 1960 

IC 1970 

MO 1980 

NH 1990 

JG 2000 

MI 2010 

KF 2020 

EG 2030 

KL 2040 

AD 2050 

DI 2060 

EE 2070 

CO 2080 

AK 2090 

FO 2100 

HG 2110 

OL 2120 

JO 2130 

CN 2140 

KM 2150 

HH 2160 

CK 2170 

KD 2180 

EA 2190 

OA 2200 

FC 2210 

MF 2220 

MC 2230 

GD 2240 

BP 2250 

KE 2260 

PF 2270 

OF 2280 

EB 2290 

JD 2300 

JI 2310 

EH 2320 

EM 2330 

GJ 2340 

EK 2350 

HD 2360 

TL 2370 

CE 2380 

AH 2390 

CL 2400 

KE 2410 

DO 2420 

NN 2430 

OP 2440 

BC 2450 

AK 2460 

MB 2470 

LA 2480 

OK 2490 

KD 2500 

DN 2510 

OE 2520 

KD 2530 

PG 2540 

MG 2550 

FF 2560 



oldrow ld\ #2 



;siart with adwrit 



oidrw'2 Ida ijdi"ead,x ;mtd column so 

adc #8 ;move over one byte 

sia adread.x 

bcc oldrw3 

iiic adread+l,x 

clc 

oldrw3 dex 
dex 

beq oldrw2 ;nowdoadrcad 

jmp starlc ;stari next column 



!!■**** *■!■*** #*#**** ******** 
** ** 



** 



screen dump here ** 



********#:!■*:+■***;#**** #*#*^ 



rowou! = 
col out = 



ad writ 
adwril+l 



mes^sag -byl 27,65,8,13,10,27,75.64,1 

27,65,8 sets graphics linefeed 
13,10 is carriage relum& If 

27,75,64,1 for 320 graphics bytes 
change these for other printers 



printer is already accessed as 
CMD file by BASIC program 



*_ 



= $17ac 



setup pointer 



;6060 is a friendly start 



Idy #> sere en 

sty adread+ 1 

idy #$00 

sEy ad read 

Idy #$19 

sty row out 



;sei screen address 



;25 rows to do 



set up for row of 320 bytes 

oprow Idy #0 

linmsg Ida messag,y 

jsr bsoul 

iny 

cpy #9 

bne linmsg 



Idy #S28 

Sly col out 

h 
J 

block Idy #7 

bytelp Ida (adread),y 



; output 40 columns 



;one biock of 8 bytes 



reorient bytes 90 degrees 

screen bytes are horizontal 
printer bytes are vertical 

Idx #7 



EO 2570 

DH 2580 

EA 2590 

OF 2600 

IK 2610 

DP 2620 

IL 2630 

GM 2640 

FB 2650 

IP 2660 

EO 2670 

Jl 2680 

DP 2690 

CA 2700 

PI 2710 

LG 2720 

LC 2730 

MG 2740 

CM 2750 

PB 2760 

BJ 2770 

CF 2780 

CO 2790 

GG 2800 

FL 2810 

GF 2820 

FM 2830 

KL 2840 

IJ 2850 

PC 2860 

MK 2870 

MF 2880 

KO 2890 

KM 2900 

NJ 2910 

CG 2920 

lO 2930 

IG 2940 

MP 2950 

AD 2%0 

FA 2970 

KB 2980 

Kl 2990 



rotate rol a ;one bit into each 

ror zp,x ; of 8 bytes 

;change ror to rol if your 
;printer does graphics inverted 

7 

dex 

bpl rotate 



dey 

bpl bytelp 

move pointer 8 bytes 
for next screen block 

Ida #7 

tax 

sec 

adc ad read 

sta ad read 

bcc oploop 

inc adrcad+1 

output 8 bytes 



oploop Ida zp,x 

jsr bsout 
dex 

bpl oploop 



update counters 

dec colout ;next column 
bne block 

F 

S 

dec rowou! ;nextrow 
bne oprow 

rts 

; BASIC takes care of unlistening 
; and closing printer file. 

.end 




Figure 9 (''Much Waves''): Code 1233233320, seed 11 

4 

The background consists of red and bJuc lines. The repeating 
green ventral pattern creases a series of blue interference 
waves that create a strong image. The partem continues 
indefinitely. 
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by Adam Hcrst 

Copyright (c) 1987 Adam Herst 

The Tlus' in CP/M Plus holds ihe promise that this version of 
CP/M is more than just a retread of the lime-wom operating 
sysiem. It suggests the presence of new ideas and enhanced 
capabilities. But the reality is a mere shadow of the ideah 

CoNIX, an operating system enhancement for computers run- 
ning CF/M-80, makes good on the promise of CP/M Plus. 
The combination of the C- 1 28, CP/M Plus and CoNlX proves 
a powerful combination. The CoNIX package implements a 
programming environment around CP/M thafin many ways 
surpasses that of CP/M's supplanter, MS-DOS. Its name sug- 
gest comparisons with the popular minicomputer operadng 
system, Unix- After working with CoNlX these last few 
months, 1 can say thai the comparison is apt. 

CoNlX is not a CP/M replacement. Instead, it adds functions 
and capabilities to the operating system, maintaining compati- 
bility for existing CP/M programs. No aspect of CP/M opera- 
tion is left unenhanced. New system calls, more command 
hne utilities, a system level Command Language and a library 
of utilities written in the Command Language are just some 
of CoNlX's features. 

CoNTX was developed and is distributed by Computer Helper 
Industries Inc. CHI distributes the CoNlX environment in 
three packages: the CoNTX Operating System, the CoNlX 
Programming System and the CoNlX Library of XCC Utih- 
ties (XCC is the CoNIX Command Language * interpreter*)- 
However^ the three packages are intimately intertwined in 
their operation and the divisions between them appear to be 
mostly in name. Nonetheless, for the purposes of this article, 
the distinction between the packages will be maintained. 

CoNIX: The Operaling System 

The heart of CoNTX is the CoNIX Operating System. Neither 
of the other packages cjdn be run without it. CoNIX is called 



an operating system because ".,.ii is in total conirol of all sys- 
tem hardware and software, and all programs must pass 
through it when they are running.'* 

CoNIX replaces the CP/M Console Command Processor 
(CCP) with the C0N1X.COM program. It is through this new 
command processor thai CoNIX is able to provide scores of 
internal utilities, a customizable user environment, additional 
command line functionality, an assortment of variables, and 
enhanced file management. 

The CCP provided with CP/M PIuh comes with a small num- 
ber of interna! or resident commands. The CoNIX command 
processor has over 20 internal commands, including all ihe 
functions provided in the CCP of CP/M Plus. Some of these 



are: 



BDEC and DECB 

CHR 

ECHO 

EXAM 

FILL 

FIND 

FLUSH 

INDEX 

MOVE 

OPT 

UDIR 

WRITE 

ZAP 



convert binary values to decimal 

values and vice versa 

convert ASCII values to hex 

print the arguments to screen 

examine memory 

fill memory 

find file in the search palh 

empty the print spooler 

find a string in memory 

copy memory 

set environment option 

list files through user areas 

write memory to a file 

modify memory 



You may have noticed a few utilities that perform functions 
that have no place in a notmai CP/M system. Flushing the 
print spooler? Searching the file path? Setting the environ- 
ment? All of these are possible with CoNIX. 

The most powerful of the utility commands is OPT. It allows 
the customization of most of the capabilities of CoNIX. (The 
number of definable fetures is too great to cover exhaustively 
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- only those 1 use most will be mentioned.} A print spooler 
can be enabled on any disk up to the maximum size of the 
disk. Printer output is seni (o the printer during keyboard 
polling. The spooler can be flushed and overridden. Other 
customizable options include the specification of sizes and lo- 
cations of internal stacks, buffers and pointers, (he location of 
temporary files and data files used by the CoNlX system, the 
definition and enabling of path searching, and the default set- 
ting for memory managemcni. These last two items deserve 
further elaboration. 

CoNlX improves on the file manipulation capabihties of 
CP/M Plus in several ways. User areas are more accessible - a 
program m any user area can now be executed from any other 
user area. File location is designated with the syntax: 



D:U/ 



where D is the drive letter and U is the user area number. The 
commands and utilities provided with CoNlX accept this syn- 
tax for their arguments, allowing access to data files in other 
user areas as well as command fdes. 

When a command is issued under CP/M Plus, both the cur- 
rent user area and user area of the defauh drive, the only lo- 
cations from which files can be executed, are searched. 
CoNIX extends the search path to include any drive or user 
area. There is no limit to the extent of ihe search. To allow 
non-CoNTX programs to tmd their overlay, help and other 
run-lime files, a list of file exlensioos in addition to .COM 
files can be added to the search. To allow programs to look 
for their data files in other user areas in the search path auto- 
matic file searching can be invoked. (This requires the data 
file name to be prepended with a colon, diereby reducing the 
effective file name length to seven characters.) Finally, the 
CoNIX environment is equipped with an archive manager, 
ARM.COM. This program collects many files into a man- 
ageable single file, reducing disk storage overhead, a major 
problem with CP/M, Commands can be executed directly 
from these archives, which can be added to the search path. 

Finally, one environment option sets the default memory 
management levch This option defines the 'leveP of the 
CoNIX program thai remains resident in memory- As you 
may have guessed from the functionality provided by CoNIX, 
it is not a small program - 28K to be exact. If all of the 
CoNIX program were to remain in memory at all times, it 
would leave little room for the execution of other programs. 
To avoid this restrictive condition, the CoNTX program has 
been divided into a number of functional levels. The full 28K 
is used when all of the levels are resident. A minimal 1/2K is 
used when the lowest level is resident. CoNIX functionality 
decreases with the number of levels resident in memory. The 
default memory management level can be set with the OPT 
command and individual commands can set the memory 
management levei for the duration of their execution. 

As the primary interface to CoNK, and by extension lo 



CP/M, the CoNIX command processor provides great free- 
dom and variety in the forms of allowable input. A particular- 
ly useful example is the use of the backslash (\) as a mask or 
'n on -interpret' character. This allows all ASCII characters to 
be entered at the command line, even those with assigned 
special funcdons. Other examples include a variety of charac- 
ter case mappings and data type conversions. 

CoNIX provides a variety of variables, all accessible at the 
command line. These include: disk-based variables, hexadeci- 
mal variables and memory variables. 

The 32 disk -based variables are referenced as Sa lo $/ and $A 
to $Z. They are set with the interna! SET command and dieir 
values stored in a disk file. When one of these variables is 
used, the disk file is read and the value substituted. These 
variables each can hold strings of up lo 255 characters in 
length, including references to other variables. 

The 16 hexadecimal variables are referenced as S$0 to $$F. 
They are used primarily to pass values to and from resident 
commands. They are pivotal in the execution of CoNIX Com- 
mand Language programs. 

The most interesting (and potentially most useful) variables 
provided by CoNIX, are the memory variables. Memory 
variables are referenced by a S@ sign followed by a 16-bit 
hexadecimal address. The contents of memory starting at ^at 
address, and usually terminated by an FF (this, as with so 
many other features of CoNIX, is user definable)* is then sub- 
stituted. If no address is given, the contents of CoNlX's inter- 
nal, 128 byte memory buffer is used. As may have been 
guessed, the number and size of memory variables are system 
and application dependent. 

Through its command processor CoNIX also provides a very 
rich implementadon of I/O redirection. In a recent ardcle 1 
talked about the PUT and GET commands of CP/M Plus and 
complained that ihey were non-standard and *untrue' imple- 
mentations of redirecnon. CoNIX provides true I/O redirec- 
tion for both devices and files. Input and output can be redi- 
rected, respectively from and to the 'raw' console keyboard, 
the "nuir device, die console keyboard, a user defined device, 
a user defined memory address and a memory 'file', as well 
as the expected disk file. 

In addition, printer output can be redirected lo otiier devices, 
memory files or disk files. A variety of command-line redirec- 
don options are available to control and process the dala 
stream. Finally, CoNIX implements command PIPES (the di- 
rect use of the output of one command as the input to a sec- 
ond command)* the logical extension of redirection. It is one 
of the few microcomputer operadng systems to do so. 

r 

CoNIX: The Programming Language 

Earlier I said that the divisions between the three packages in 
the CoNIX environment appear to be abitrary. This is most 
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pronounced with the division between the CoNIX Operating 
System and the CoNIX Command Language. The CoNlX 
Command Language is litde more than a programming manu- 
al and the 'interpreter' to turn CoNIX Command Language 
programs into .COM fdes. executable only under CoNIX. All 
of the commands used in the programs are available under the 
CoNIX Operating System. However, without the manual to 
tel! you what they are, and the XCC program lo turn them in- 
to runnable form, these commands are useless. The value of 
documentation to today's complex programs should not be 
underestimated. 

The CoNIX Programming Manual details the use of the XCC 
interpreter, tne flow of control commands, the many program- 
ming variables (yes, Virginia, there are more variables), the 
operating system command line options (mentioned only in 
passing in the Operating System Instruction Manual), the 
general programming commands, the programming utilines 
and the added CoNIX system calls. 

The CoNIX Command Language provides the facilides of 
any structured programming language. Unlike most program- 
ming languages, which are designed to operate in isolation, 
the CoNIX Command Language is designed to interact with 
the operating system and the programs and commands which 
run under it. Used simply, the CoNIX Command Language 
can automate repetitive tasks, similarly to the CP/M Plus 
SUBMIT command that it replaces. Used to its fullest, the 
CoNIX Command Language can join disparate and distinct 
commands and programs into new and unique software tools. 

The CoNIX Command Language contains the flow of control 
constructs expected in modem programming languages. Sim- 
ple conditional evaluations (AND and OR) are possible. More 
complex conditional evaluations are possible with IF-THEN- 
ELSE and SWITCH constructs. Branching is possible using 
any of GOTO. GOSUB or WHILE constructs. These com- 
mands are accessible only through CoNIX Command Lan- 
guage programs- Ail appropriate constructs can be nested (it*s 
hard to nest a GOTO) to a default value of 255 levels. As with 
most other CoNIX parameters, these values can be individu- 
ally tailored to suit your needs within the restrictions of your 
system's resources. Each of the constructs has an associated 
command to break out of any specified number of nested lev- 
els. 

Construct tests are based on the exit status of commands and 
programs. Only CoNIX commands and user-wriuen programs 
designed to run under CoNIX will set the exit status. Only 
these programs can be used directiy in construct tests. How- 
ever, other methods, outiined in the documemanon. exist for 
the indirect use of standard CP/M commands and programs. 

An assortment of programming variables is available for use 
wi(h CoNIX Command Limguage programs. Command Line 
Argument Variables, referenced as $0 to $255, allow the pass- 
ing of parameters to Command Language programs. Memory 
Address Variables, referenced as $&<address>, where <ad- 
dress> is a hexadecimal memory address, allow die manipula- 



tion of two-byte data anywhere in memory. Finally, Environ- 
ment Variables allow for the testing and monitoring of many 
system functions. These include: the BDOS error status, the 
default disk drive, the current user area, the end of file status, 
the current nest level, the column position of the cursor on die 
screen, the column position of of the tast character output on 
non-screen devices and. of course, die exit status. 

Included in die Command Language manual is a chapter on 
the more than twenty programming commands. The introduc- 
tion to the chapter states that diese commands are accessible 
on the operating system command line as well as in Com- 
mand Language programs. If you had bought only the operat- 
ing system, you would never know they were there. 

The programming commands generally fall into two cate- 
gories by function: system interface and string manipulation. 
Examples of ihe system interlace commands are: 



BDOS 



FNAME 



PUSH, POP 



execute a system call or accessible 

user routine with the loading of 

registers 

process a filename into its 

components 

push and pop strings onto and off a 

user-defined stack in memory 



The string processing commands are greater in number and 
include: 



GETC, GETL 


read a character/line from the 




standard input 


ISC, ISN, ISX 


check if a string is a character. 




numeric or hexadecimal string, 




respectively 


LEN 


print a string length 


SCMP 


compare strings 


SUBSTR 


retum a substring 


STRIP 


strip leading characters from a siring 


SUM, SUB 


add and subtract two numbers 


TEST 


test two numbers for equality 



Additional programming utilities, omitted from CoNTX prop- 
er 10 minimi/'.e program size, arc distributed with the CoNIX 
Command Language. Only two will be mentioned here. Of 
most general use is the utility program EXPR. an expression 
analyzer The CoNIX command Inaguage, oriented towards 
string processing, performs only the most rudimentary mathe- 
matical operations. EXPR can be used to supplement these re- 
sources when the need arises. 

The second utility is MKREL - make a relocatable program. 
Relocatable programs are one part of another great idea from 
the developers of CoNIX. Using MKREL. and following a 
simple prescribed methodology, user programs can be written 
that load into and execute from any point in memory. Since 
programs normally load into memory at lOOh, loading a pro- 
gram causes the previous one to be displaced from memory. 



Transactor 



29 



May 1988: Volume 8, Issue 6 



To repeatedly execute a program requires that it be repeaiediy 
loaded from disk. Storing and executing multiple relocatable 
programs promises a significant reducnon in disk I/O and its 
associated overhead. 



file display utility, and more. Space constraints prevent a full 
description of these hut suffice it to say that many of them 
singly are worth the price of the XCC Library package in to- 
tal. 



Supporting the many features of CoNIX are 23 new system 
calls. These system calls are documented in the CoNIX Com- 
mand Language Manual and are accessible to user wriiicn 
programs. From the description of the CoNIX operating sys- 
tem and Command Language, you can imagine the breadth of 
the new system calls. 1 won't hsi them. Obviously, programs 
accessing these calls will not run under standard CP/M. 

The CoNIX commands, constructs and utilities described 
above, along with any user commands or programs, can be 
brought together in Command Language programs. Com- 
mand Language programs are ASCII text files, prepared with 
any text editor, typically with the Hie extension .xcc. The 
XCC Command Language Interpreter must be used to turn 
the source files into executable Command Code, with an ex- 
tension of .com. Error checking is peribrmed during 'compi- 
lation' and a number of XCC debugging options are accessi- 
ble through the command line. 

While XCC programs have a .com extension, they are not 
like regular .com files. First, they will not run on a standard 
CF/M system. Second, unlike standard .com files, XCC pro- 
grams do nof load into memory to execute. Instead, 
"...execution lakes place on disk, with CoNIX reading 128- 
byte records into an internal area of memory from which the 
program is processed'*. This allows XCC programs to be as 
large as available disk space, removing program size limits 
imposed by system memory. 

CoNIX: The XCC Library 

The CoNIX programming environment is as sophisticated 
and versatile as that fourid on many mini and mainframe com- 
puters. As such it presents a foreign and potentially frustrating 
environment for new users. The CoNIX Library of XCC Util- 
ities, distributed as ready to run programs, include rfie XCC 
source code as tutorial examples of XCC programming. The 
printouts of these programs total over 100 pages and reveal 
many of the tricks of XCC programming. 

r 

The functions of some of the XCC utilities are worth men- 
tioning in themselves. Using XCC programs, CoNIX imple- 
ments a system of hierarchical directories and provides a 
complement of utilties to manipulate the file system. These 
include utilities to make and remove directories, list directory 
paths and file contents, move, copy and hnk files across di- 
rectories and a shell to process path names for other pro- 
grams. All djis is performed through the manipulation of text 
files by tlie XCC programs. There is an I/O overhead from the 
extra disk access but the system performs surprisingly well. 

Other utiHties are an interactive file un-erase utility, a utility 
to do simple formatting of a file and send it to the printer, a 



CoNIX: The Documentation 

Bach of the three CoNIX packages, Operating System, Pro- 
gramming Language and XCC Library, comes with a plastic- 
spiral bound manual - in total almost a rival in size to the 
Digital Research Inc. CP/M Plus manual. Chapters are well 
organized and, more imponantly, well written. Concepts are 
presented from first principles. Little, if no, prior knowledge 
of operating systems or programming languages is assumed. 
Examples abound. Each manual has a comprehensive index. 
A truly professional attitude is evident throughout - a quality 
all too often lacking from computer software documentation. 

If all of the commands and options sound like too big a hand- 
ful to keep hold oL and the documentation too cumbersome 
to use with your hands full, on-hne help and a simple but ef- 
fective menu program to configure the CoNIX environment 
are included in the package. These fdes require a lot of disk 
space and are best stored in the C-128's RAM disk if you ex- 
l>ect to receive help in real time. This overhead makes the 
help systems impractical most of the time, but in the first few 
weeks of using CoNIX they will be the first files you load. 

CoNIX: The Support 

CoNIX and Computer Helper Industries are an oasis in the 
CP/M software desert. Finding support for most CP/M soft- 
ware packages is an insurmountable problem. Manufacturers 
have either gone out of business or (and this is the case with 
the manufacturer of CP/M Plus, Digital Research Inc.) have 
discontinued support for the product, CoNIX, whose current 
version is numt>ered 22.x, evolves with the computers it can 
run on. A call to Computer Helper Industries (at my expense - 
they do not provide toll free service) yielded a speedy fix to 
my bug report (they called me back) and the information that 
a C-128 was now their in-house system. (Other surprises, cur- 
remly under development and specifically for the C-128, 
were alluded to - 1 will keep you informed.) 

CoNIX; The Search 

The search for CoNIX will not lead you far. In one of the 
most savvy marketing moves I recently have come across. 
Computer Helper Industries releases the previous version of 
the CoNIX operating system as shareware. This is not a crip- 
pled version - it is the full implementation of the previous 
generation of the software. You arc free to use the shareware 
package for a t>eriod of up to six months; at that time you are 
asked to become a registered user or to destroy the package. 

(This was my introduction to CoNIX - downloaded from the 
CP/M library of the CUMPRG forum on CIS. It took only 
two months to convince me to place my order.) 
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The cost of the complete, most recent version of the CoNIX 
package, including media and shipping via air mail to 
Canada, was $83.95 US. Various combinations of the CoNTX 
packages are available lor less. Delivery was prompt, under 
four weeks, a rarity when ordering by mail. The product was 
well packaged and suffered no damage in transit. 

L 

More information on the CoNlX environment can be ob- 
tained from: Computer Helper Industries Inc., PO Box 680, 
Parkchester Station, Bronx, NY, 10462, (212) 652- 1786. 

You Win Some, You Lose Some 

Not evcrytlling is perfect with CoNTX. Most annoying is the 
loss of even the limited command line editing provided with 
the CCP of CP/M Plus, A recal Mast -command command is 
available but cursor movement commands are limited to a 
destructive backspace - barbaric! 

A more serious problem is the overhead involved in CoNIX 
use. The many support files, option files, and temporary files 
need lots of disk storage space. If you are using a single drive 
system, CoNIX may be your best reason to buy a second stor- 
age device, A high-speed, high-capaciiy storage device like 
the 1581 3.5 inch disk drive or the 1571 RAM Expansion 
(used as a RAM disk) is recommended. If you aren'l ready to 
expand your system to ihis extent, CoNTX isn't for you. 



Two features of CoNIX, Expandisk and BDOS patching, 
must be disabled during installation in order for it to run on 
the C-128. The procedure for disabling diem is clearly ex- 
plained in die interactive installation program. Without going 
into their functions, I will say that I have not noticed them in 
their absence. 

I must admit that the number of system crashes has increased 
since 1 have begun to use CoNIX. This is to be expected with 
die opportunities CoNIX provides for the uninidated to ride 
roughshod over their systems. Fortunately, the C-!28's non- 
volatile RAM disk reduces the damage a crash can do and 
makes reboots fast and easy. 

Its faults notwithstanding, I would recommend the CoNIX 
Operating System to anyone who uses the CP/M side of the 
C-12S with any regularity. If you are using CP/M as your 
business system, or programming for personal or commercial 
interests, you will wonder how you got by without the com- 
plete CoNIX package. 

The redundancy of some CoNIX capabilities when run on the 
C-128, and the superiority of those C-128 capabilities (rede- 
finable keys, function keys, virtual drives, command line edit- 
ing}, illustrate the power of CP/M Plus on die C-128. Howev- 
er, the addition of CoNIX to this team makes for a truly un- 
beatable combination. 



UNLEASH THE DATA ACQUISITION AND 

CONTROL POWER OF YOUR COMMODORE C64 OR C128- 

We have the answers to all your control needs. 



NEW! SO-LINE SIMPLIFIED 
DIGITAL I/O BOARD 



Create your own aulostart dedicaled 
coitlnilkr without relying on di&k drive. 
Socket for standard ROM cartridge. 
40 separate buffered digital oiiipiit Lties can 
taidi direclly S'Ailch 50 volts al 500 niA. 
40 separate digiial inpul tines. fTTL), 
I/O Lnes controlled ihrough simple memory 
mapped ports each accessed via a single 
statejnent in Basic, No interface could be c^icr 
to use. A total of ten H-bit ports. 
Included M.I„ dm cr program optionally called 
as a subroutine for fast convenient acL^iss to 
intli^idira] I/O lines from Basic. 

Plujzs into computer's expansion port. For both 
C64 & C\2^. [/O coTuiections are through a 
pair of 50-pin professional type strip headers. 
Order Model SSIOO Plu.s. Onl> S119! Shipping 
paid USA. Includes extensive dociimcntLitittn 
and program disk. Each additional board S109. 



\\erake pride in our inicrface hoard ilCNjumciiiaiinn ajuJ 
iufiwdic suppon, which i^ a^-aildble sepataEdy t<n 
e^taiiuriatiun. CrccliE againy rir^ordn". 
SSICO Plus, S2r> 64IF22& ADOtel*, *10. 



OUR ORIGINAL ULTIMATE 
INTERFACE 




• Universally applicable dual 6522 VersatJle 
Interface Adapter (VIA) board, 

• IndusCria] control and monitoring. Great for 

laboratorydataacquLsitionandinstninieniation 
applications. 

• hUdligemJycontrolalniostanydevice. 

• Periorm automated lesEing. 

• tasytoprogramyetexiremelypowaful. 

• Easily interfaced to high-perfomance A/D and 
D/A converters. 

• Four S-bit fully bidirectional I/O ports & eight 
handshake lijies. Four 16-bil timer/counters. 
Full IRQ interrupt CE^abiljiy. Expandable lo 
four boards. 

Order Model 64IF22. $169 postpaid USA. 
Includes extmsive documentation and programs 
on disi<. Each additional lx>ard 1149. Quantity 
pricing available. For both C&l and CI 28. 

_ A/D CONVERSION MODULE 

Fait. IfvchanneLS-bii.Requiresabove, Leaves al! 

VIA pons available. For both C64 and C12S. 

Order Model 64lF/ArX"0836. Only S69. 



SERIOUS ABOUT 
PROGRAMMING? 

SYMBOL MASTER MULTI-PASS SYM 
BOLiC DISASSEMBLKR. Learn to program 

hke the experts! Adapt existing programs lo 
your needs! Disassembles any 6502/6510/ 
undoc/65C02/8502 machine code program 
into beautiful source. Outputs source code 
files to disk fully compatible with your MAE 
PAL, CBM, Develop-64, LADS, Merlin or 
Panther assembler, ready for re-assembly and 
editing. Includes both C64 & C12e native 
mode versions, lOO^o machine code and 
extremely fast. 63-page manual. The original 
and best is now even better with Version 2.1! 
Advanced and sophisticated features far too 

numerous to detail here, S49.95 postpaid 
USA. ^ 

C64 SOURCE CODE. Most complete 
available reconstructed. e>!tensivcly com- 
mented and cross-referenced assembly 
[anguage source code for Basic and Kernal 
KOMs, all I6K, In book form, 242 
$29.95 postpaid USA- 



pages, 



PTO-6510 SYMBOLIC DEBUGGER for 

CM. An extremely powerful tool with 
capabilities far beyond a machine-language 
monitor. 100-page manual. Essentia] for 
assembly-language programmers. S49.95 
postpaid USA, 

MAE64 ver^on S.O. Fully professional 
6503/65C02 macro editor/assembJer. 80-page 
manual, $29.95 postpaid USA. 



MENN ADDRESS'. 



Al! prices ^n U-S.doilars. 



SCHNEDLER SYSTEMS /Uti^ 

Dept. 86, 25 Eastwood Road, P.O. Box 5964 ^ '^OOj 

Asheville, North Carofina 28813 Telephone V704-274-4646 



Tronsactor 



31 



Mcv 1988: Volume B, Issue 6 



Great Assignment! 



Easy in-program expression evaluation for the C64 and CI 28 



by PaiilDurraiit 

Enter and ilin the following program on your C64 or C 1 2S: 

10 input"Enter an ariihmeiic expression" ;a$ 
20 a = a$ 
30 print a 

At the prompt* enter somecliing like '(13+2)*46\ or 'sqr(4)' 
(without the quotes). 

You get a *?type mismatch error\ right? 1 developed a series 
of inventory control programs which required entering 
thousands of numbers. Sometimes they were things like: *'13 
dozen plus 5 plus eight-and-a-half more dozen." Not being 
able to enter those numbers as an arithmetic expression 
resulted in considerable frustration - and ^ "great assignment''. 
After enabling this routine (by changing the ERROR 
vector.. .more later), an arithmetic expression in a string 
variable can be solved and assigned to a floating point 
variable. The method of use couldn't be simpler: just execute 
'a = a$' (or iiem(x) - entryline$(7)\ or...). If the string 
variable contains a legal arithmetic expression, it will be 
solved, and its value assigned to the numeric variable. An 
empty string will be assigned a value of zero. And, the 
routine stays active, even after doing a 'Run-Stop Restore'. 

How it works 

Nonnally, trying to assign the vaiue of a string variable to a 
numeric variable results in a '?type mismatch error'. In 
addition, the numeric variable is on the left side of the 
mismatched equation. So, the new error routine starts by 
checking for diat condition (a ^?iype mismatch', numeric on 
the left). If this is not Ihe current error, then it jumps to tiie 
normal error handling procedure. If this is the current error, 
then some additional information is available. The error was 
recognized after finding the addresses of both variables 
(numeric on left, string on right), "great assignment'' uses 
this information to move the text string into the BASIC input 
buffer (BBUFF) where CRUNCH can convert the text into 
executable, tokenized form. Then it calls 'formula.evaiuate' 
to solve the crunched expression and put the result in Floating 
Point Accumulator #1 (FAC #1). Finally, the assignment 
statement is completed, using the address of the numeric 
variable which has been waiting patiently ever since the 
original error condition. 



On the C64, the amount of additional housekeeping required 
to make this work is minimal. On the C128, things aren't 
quite so simple. Most of the difference revolves around the 
issue of where lo place the routine. Let's start with the C64, 
first. There are no internal jumps or subroutines in **greal 
assignment", so it can be easily heated anywhere in 
memory. On the C64, the tape buffer will work. So will that 
ever popular area starting at SCOOO, and it can even be placed 
in the BASIC program memory area (if proper adjustments 
are made to keep BASIC and variables from over-writing it). 
The program cannot be located "under" BASIC or the 
Kemal, however, since it uses routines contained therein. 

On the C128, principles are the same, but location is more 
complicated. The C12S's many memory configurations 
include several that are used heaviiy by the BASIC 
interpreter. Moreover, because the new error handling routine 
must handle all errors, it must be robust enough to take them 
oh, no matter what memory configuration exists when the 
error occurs. Only the Common RAM (from $02 to $3FF) 
can do it, and there isn't room there for even a relatively short 
program such as this. The solution involves using six free 
bytes near the end of Common RAM ($3E4 to $3E9). That's 
exactly enough room to set the desired memory configuration 
(RAM 0, BASIC and Kemaij and then jump to the remainder 
of the new error handling routine (which Tve placed in the 
cassette buffer, from SBOO). There's more trouble ahead, 
though: ^eninch\ 'frmevaf, and the two routines that save 
and restore the 'txtptr' require RAM 0, BASIC and the 
Kemal, but MOVE$ uses routines which leave us in RAM 1, 
BASIC and Kemal. Fortunately, those routines are located in 
RAM, so "great assignment" can change those routines a bit 
before doing MOVES, and then restore them to their normal 
condition when done. The program listing shows it all. 

How to use it 

To enable "great assignment", you must change the ERROR 
vector to point to the new routine. The ERROR vector is in 
locations 768 and 769 ($300/301) on both machines. If you 
place "great assignment" at SCOOO in the C64, then 'poke 
768,0: poke 769,192\ If you use the cassette buffer then 
^pokc 768,60; poke 769,3\ For the C128 - remembering the 
six byies in Common RAM - 'poke 768,228: poke 769,3\ (Or 
use the Monitor to set $300 to $E4 and S30I to S03.) The 
BASIC loader programs listed will do everything for you: just 
mn the 64 or 128 version, and start your great assignments! 
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Annotated Monitor Listing for C-64 "great assignment" 



cOOO 

c002 

clXH 

c(K)6 

cO08 

cOOa 

cOOd 

cOllf 

cOll 

c013 

cOt5 

c017 

c019 

cOlb 

cOld 

c020 

c021 

c023 

c025 

c027 

ca2a 

c02b 

c02c 

c02f 

c031 

c033 

c035 

c037 

c039 

c03h 

c03d 

c03f 

c042 

c045 

c048 

d)49 

c04a 

c04b 

c04e 



bO 08 

eO 16 

dO 04 

24 Od 

30 03 

4c 8h 

a9 00 

i^5 35 

a9 02 

85 36 

a5 64 

85 6f 

a5 65 

85 70 

20 7i 
aa 

bl 6f 

60 06 

a9 30 

9d 00 
e8 
98 

9d 00 

a5 7a 

a4 7b 

85 3d 

84 3e 
a9 00 
aO 02 

85 7a 
84 7b 
20 79 
20 73 
20 9e 
68 

68 
68 

20 72 

4c dO 





bcs 


ScOOa 




cpx 


#$16 




bne 


ScOOa 




bit 


$0d 




bmi 


ScOOd 


e3 


jmp 


$e38b 




Ida 


#$00 




sia 


$35 




Ida 


#$02 




sta 


$36 




Ida 


$64 




sta 


$6f 




Ida 


$65 




s[a 


$70 


b6 


lax 


$b67a . 




Ida 


(S6f),y 




bne 


$c02b 




Ida 


#S30 


02 


sia 


$0200j 



Check for 

'?iype mismatch error*, 
with FLPT on left, 
string on right. 

Normal ERROR rouiine. 
Prime to MOVES contents 

of S var to begin 

of BBUFF. 

;LET erred here with $64/65 
; pointing to header of $ var. 



MOVE$. 

= end of $ entered In bbuff+1 

(y) = here. 

Branch if not a null string. 

Else enter ASCH "0", 



inx 
lya 
02 sta 
Ida 
Idy 
sta 
Sly 
Ida 
Idy 
sta 
sly 
a5 jsr 
00 jsr 
ad jsr 
pi a 
pla 
pla 
ab jsr 
bb jmp 



$0200,x 

$7a ;Save 



; TXTPTR. 



;Set TXTPTR 
; to BBUFF. 



S7b 

$3d 

$3e 

fl$0O 

#S02 

$7a 

$7b 

$a579 ;CRUNCH, 

$0073 ;chrget (set ixtplr to bbuff). 

Sad9e ;FRMEVAL, 

;Cleai stack 

; from 

; TYPE MISMATCH. 
$ab72 ;Restore TXTPTR, 
$bbdO :M0VEFAC#1 tovar. 



AniioEattd Monitor IJsling Tor C-128 '*great assigmnenr^ 

003e4 8d 03 ff sia $fH}3 ;Enab]e ram 0, Basic. Kcrnal. 
O03c7 4c 00 Ob jmp $0b00 ;Jmp to new ERROR routine. 



;Check *?type mismatch error' 

with numeric on left. 
Found? 

No: do normal ERROR. 

Yes: reset pir to 

"temp string stack". 

make "RAM I fetches" 

return to RAM 

during MOVE$. 

Set MOVES's destination 

; to BBUFF ($0200). 

Set up MOVE$'s source: 
LET erred with ptr to 
string in $66/67, 

;MOVE string into BBUFF. 
;(\) holds length of string. 

;Place ASCII "0" in BBUFF 



OObOO 


eO 


16 


cpx 


#S16 


O0bO2 


dO 


04 


bne 


S0b08 


O0bO4 


24 


Of 


bit 


$0f 


00bO6 


30 


03 


bmi 


$0b0b 


(Hlb08 


4c 


42 


4d jmp 


$4d42 


OObOb 


a9 


lb 


Ida 


#$lb 


OObOd 


85 


18 


sta 


$18 


OObOf 


a9 


03 


Ida 


#$03 


OObll 


Sd 


b4 


03 sia 


$03b4 


00bl4 


8d 


bd 


03 sta 


$03bd 


00bl7 


a9 


00 


Ida 


#$00 


00b 19 


85 


37 


sta 


$37 


OOblb 


a9 


02 


Ida 


#$02 


OObId 


85 


38 


sta 


$38 


OOblf 


a5 


66 


Ida 


$66 


00b2l 


85 


70 


sta 


$70 


00b23 


a5 


67 


Ida 


$67 


00b25 


85 


71 


sta 


$71 


00b27 


20 


4e 


87 jsr 


$874e 


00b2a 


aa 




tax 




00b2b 


dO 


06 


bne 


$0b2f 


00b2d 


a9 


30 


Ida 


#$30 



00b2f 9d 00 02 sta 


$0200,x 


00b32 e8 inx 




00b33 98 tya 




00b34 9d 00 02 sta 


$0200.>; 


00b37 20 34 4b jsr 


$4b34 


00b3a a9ff Ida 


#$ff 


00b3c aOOl Idy 


#$0i 


00b3e 85 3d sia 


$3d 


00b40 84 3e sty 


S3e 


00b42 20 Oa 43 jsr 


S430a 


00b45 20 SO 03 jsr 


$0380 


00b4a 20 ef77 .jsr 


$77ef 



00b4b 20 79 57 jsr $5779 

00b4e 68 pla 

00b4f 68 pla 

00b50 68 pla 

00b51 a9 04 Ida #$04 

00b53 8d b4 03 sia $03b4 

00b56 8d bd 03 sta $03bd 

00b59 4c fa 53 jmp $53fa 



; if empty string. 

;(y) = after MOVE. 

;End BBUFF with null byte. 

;Save BASIC'S TEXTPTR. 

;Now set 

; TEXTPTR to 

; BBUFF- L 

;CRUNCH the string. 

;UseCHRGET 10 align ptrs. 

;'fTmevar solves expression 

;(resuhinFAC#l). 

;Restore TEXTPTR. 

;Clean the 

; slack from the 

; MISMATCH ERROR, 

;and 

; restore "RAM I fetches" 

; to normal operation. 

;E)o assignment; carry on. 



BASJC lo;idcr for the C64 version of '*Great Assj|rninent" 

FB 100 rem "Great Assignment" for the C64 

GO 1 10 for x=49l52 to 49232: read a 

KO 120 poke s,a: check=check+a: next 

AB 130 data 176, 8,224, 22,208, 4, 36, 13 

OG 140daiaO48, 3, 76,139,227,169, 0. !33 

W I50data 053, 169, 2, t33. 54,165,100,133 

AH IbOdata 111,165,101,133,112, 32,122,182 

EE nOdaia 170,177,111,208, 6,169, 48,157 

BJ 180dara 000, 2.332, 152, 157, 0, 2, 165 

LO I90data 122,164.123.133. 61,132, 62,169 

MO 200 data 000,160, 2.133,122,132,123, 32 

JA 210 data 121,165, 32,115, 0, 32,158,173 

OO 220data 104,104,104, 32,114,171, 76,208 

GJ 230 data 187 

CJ 240 if checko8575 then prim'You goofed[":end 

KL 250 pokc768,0: poke769,192: prinr'OK!" 

BASIC loader for Ihe C128 version 

GD 100 rem "Great Assignment" for the CI 28 

KN 1 10 for x=dec("3e4") to dec("3e9"): reada$ 

KJ 1 20 pokex,dec(aS):check=chcck+dec(aS): next 

IH 1 30 data 8d, 03, ff, 4c, 00, Ob 

BC 140 for x=dccC'bOO") to de<:(^'b5b"): readaS 

IL 150 poke\,dcc(a$):check^check+dec(a$): next 

BD 160 data eO, 16. dO, 04, 24, Of, 30, 03, 4c, 42 

IN 170 data 4d, a9, lb, 85. 18, a9, 03. 8d, b4, 03 

FN 180 data 8d, bd, 03, a9, 00, 85, 37, a9, 02, 85 

NE 1 90 data 38, a5, 66, 85, 70, a5, 67, 85, 7 1 , 20 

TM 200 data 4e, 87, aa, dO. 06, a9, 30, 9d, 00, 02 

MO 210 data e8, 98, 9d, 00, 02, 20, 34, 4b, a9, ff 

CE 220 data aO. 01, 85, 3d, K4, 3e, 20, Oa. 43, 20 

EJ 230 data SO, 03, 20, ef, 77, 20, 79, 57. 68, 68 

' FC 240 data 68, a9, 04, 8d, b4, 03, 8d, bd, 03, 4c 

FA 250 data fa, 53 

OM 260 data e4, 03 

U 270 read lo$: check=check+tlec(loS) 

BG 280 read hi$: chcck=check+dec(hi$) 

NL 290 if check <> 9554 then print'Tou goofed!":end 

HO 300 poke768,dec(lo$): poke769.dcc{hi$) 

NH 3IOprint"OK!" 



I 
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Give Me A BRK! 



Invisible subroutines on the C64 and C128 



by Tom Hughes 

I don'l think I'd be exaggerating in saying Ihai BRK is the 
least used 65xx instruction- In fact. BRK is usually associated 
wiih disaster - your muchinc language program wanders off 
course, slams into a BRK. ^nd your computer ends up in nev- 
er-never land. 

It doesn't have to be this way, BRK can be used to call sub- 
routines that will be '^invisible'' to all the 65xx registers ex- 
cept the program counter (PC). In a way, BRK can be used as 
a 6502 equivalent of the 68000"s TRAP instruction. 

BRKing on the C64 and C128 

First, let's see how the Commodore 64 and 128 react to 
BRKs- When a BRK occurs in the C64 or C128, the PC is 
loaded with the vector at $FFFE/FFFF, which also serves as 
the IRQ vector. Since this vector serves a dual function, the 
computer first musi determine what sort of interrupt occurred 
- an IRQ or a BRK. (Yep, BRK is an interrupt.) The BRK en- 
tries for both machines are listed bt:low: 



C64: 



ff48 


pha 


ff49 


txa 


ff4a 


pha 


ff4b 


tya 


ff4c 


pha 


ff4d 


ISX 


ff4e 


Ida 


ff51 


and 


ff53 


beq 


ff55 


jmp 


ff58 


mp 


C128 


;: 


ffI7 


pha 


ffl8 


txu 


ffl9 


pha 


ffla 


tya 


Transactor 



;** c64 brk/irq entry ** 
;save ,A, ,X and .Y on stack 



;current stack pointer to .X 
$0104, X ;use it to load old status register 

#%000 10000 ;tesi the brk bit in the SR 
$ff58 

($03 1 6} ;if this bit = 1 , then this is a BRK 

($0314) :olherwise, an IRQ. 



;save .A. .X and .Y registers 



fflb 
fflc 
fflf 
ff20 
ff22 
ff25 
ff26 
fi29 
ft^b 
ft2d 
ff30 



pha 

Ida 

pha 

Ida 

sta 

tsx 

Ida 

and 

beq 

jmp 

jmp 



$ff00 ; also save current bank on stack 

#$00 ;and force bank 15 

$ffOO 

;current stack pointer to .X 
$0105,x ;use it to load old status register 

#%000100{)0 ;test the brk bit in the SR 
$ff30 

($0316) ;if this bit = 1, then this is a BRK 

($0314) ;otherwise, an IRQ 



Sifting through the Stack 

The BRK entries above are nearly identical for both ma- 
chines. So why list both? Well, if you're kind of fuzzy on 
slack operations during an interrupt, then listing both will 
show you exacdy how to get at the .A, -X and -Y registers, the 
SR, and the PC that have been pushed on the stack - neces- 
sary information in order to use BRK effectively. 

Notice that the C64 does a Mda $0 1 04,x \ but the C 1 28 uses a 
Tda $0105,x'. What's going on? Keep the following in mind; 

• the 65XX stack lives between SOIFF and $0100. 

• when values are pushed on the stack, the stack grows 

downwards in memory. 

• the stack is organized in LIFO ("last in, first out'') order. 

Here's an example of what happens to the stack on the C64 
during a BRK, assuming the SP was $F6 when the BRK in- 
struction happened: 



$01 f6 
$01 f5 
S01f4 
$01f3 
$01f2 
$01fl 
$0lf0 
$01 ef 



PCH 

PCL 

SR 

.A 

X 

.Y 



<- old stack pointer 
<- program counter high byte 
<- program counter low byte 
<- processor status register 



<- data registers 



<- SP (= $ef after the entry routine) 
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The CI2S stack would look like this (again assuming the SP 
was at $F6): 



$01 f6 




<- old Stack pointer 


$01f5 


PCH 


<- Program counter high byte 


$01f4 


PCL 


<- Program counter low byte 


$0113 


SR 


<- Processor status register 


som 


.A 


<- Data registers 


$01 fl 


X 




$01 fO 


Y 




$01 ef 


BANK 




SOlee 




<- SP is SEE after the entrv rr 



Note: The program counter (PCH and PCL) and ilie status 
register (SR) were saved by the CPU itself when the BRK or 
IRQ occurred. 

Remember that both the entry roudnes must determine what 
really happened - a BRK or an IRQ. So both must lest die SR 
saved on the stack. On a C64 the "Ida $0104,x' fetches the old 
SR from the stack. Since the SP at the end of our entry rou- 
tine is $EF, just add 4 to this, and Mda $0i04,x^ really be- 
comes Mda $0IF3^- the SR. The CI28 uses Mda$0105,x* be- 
cause it must add 5 to get past the saved bank value. Anyway, 
use the same technique to get at the other pushed values and 
where .X is the SP: 



For the C64, to find... 

PCH useLDA$0106,X 

PCL useLDA$0105,X 

SR useLDA$OI04,X 

.A useLDA$0103,X 

.X useLDA$0102,X 

.Y useLDASOIOLX 



For the C128, to find... 

PCH use LDA $0107 ,X 

PCL useLDA$0106,X 

SR useLDA$OI05,X 

.A use LDA$0I04,X 

-X useLDA$OI03,X 

■Y useLDA$0102,X 

BANK useLDA$010UX 



Once these pushed values are located, they can be changed - 
one method of passing parameters through BRK. 

A word on PCH and PCL: the program counter on the stack 
has had 2 added to it. This is very important to keep in mind 
while using BRK, The following example shows what hap- 
pens to the PC afer a BRK: 



$ J 000 Ida #$0d 
$l002jsr $ffd2 
Sl004brk 
$ 1 006 nop 
$l007jsr $ffe4 



;($1007 saved as PC on stack) 



;we land here after BRK 



From the example above, you can see that !he PC skips right 
over the NOP instruction. So it could be any value. In fact, in- 
stead of the NOP, we could place a value that our BRK rou- 
tine could use as some sort of parameter - like a subroutine 
number. For instance, the code below could be used to call 
subroutine #5: 

$1000 Ida #$0d 



$l002jsr $ffd2 
$1005 brk 
SJ0O6.byte#S05 
$l007jsr $ffe4 



;subroutine or "trap" # 



The sample source code listed after the article does just that - 
uses a value after BRK lo execute a particular routine or trap, 

68000 Traps 

Before presenting a sample BRK routine, it might be intere.st- 
ing to look at (he trap functions of the 6SO0O machines, such 
as the Amiga and the Macintosh, 

The 68000 has an instruction called TRAP that allows a pro- 
grammer to create up to 16 routines that can executed from 
within a program that generate excepdons or interrupts- (The 
68000 also allows something called A-traps and F-traps that 

are in a sense closer to our use of BRK, but this is beyond the 
scope of this article,) 

Traps allow you to interrupt the microprocessor from soft- 
ware - handy if you need something done in a hurry while at 
the same time preserving important program values, and the 
trap will seem invisible to die execution of your program. 

Our BRK routine will be invisible because the .A, .X, ,Y reg- 
isters, the SP and, in the case of the C128, the bank value will 
be unaffected. 

A BRK Demonstration Program 

The following PAL assembler source code for the C64 con- 
sists of three parts: 

(1) A routine to divert the standard BRK vector at 
S03 1 6/03 1 7 to our custom routine. 

(2) A BRK handler that shows how to incorporaie BRK in a 
machine code program. One small note: this part of my pro- 
gram contains self -modifying code because TRPNM is 
changed each dme you type I, 2 or 3, This is not good pro- 
gramming practice (try using the code in an EPROM!) and 
was only done to shorten the example. If you wish to make 
use of the concept described in the article, i suggest fixed trap 
numbers following the BRK instruction. 

(3) The BRK rouUne itself simply prints 1, 2 or 3 to the 
screen depending on which trap was used. The TIDYUP rou- 
tine pulls the registers from the stack and does an RTI. 

Final Notes 

InierrUp! priority: traditionally, only the NMI and IRQ are 
mendoned during any discussion of interrupts. Actually, the 
interrupt priority, from highest to lowest, is as follows: NMI, 
BRK, IRQ, A BRK supersedes an IRQ because IRQs are 
disabled by the SEl instruction, but not BRKs. 
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AD 


1360 


stx 


oldbrk 


;save old brk vector 


BRK 


to BRK? Though I haven't tried it. I suppose you could 


FM 


1370 


sty 


oldhrk+i 




write 


a program using BRKs instead of JSRs, However, 


AM 


1380 


Idx 


#<newbrk 


;then set new vector 


watch 


1 nesting BRKs inside of BRKs because each will need 6 


BJ 


1390 


Idy 


#>newbrk 




(or 7 foraCi28) slots on the stack, and there's only 256 stack 


KK 


1400 


s^ 


cbinv 




locations to work with before the stack wraps around and 


PJ 


1410 


sty 


cbinv+ 1 




obliterates some vital parameter. 


OG 


1420 


cli 


; enable interrupts 






MA 


1430; 








Keyboard scanning: since the Kernal*s IRQ routine is respon- 


Fl 


1440 ; 








sible for scanning the keyboard, you will have to use fhe SC- 


KP 


1450 ;denio brk handler 




NKEY Kemal routine if you want keyboard input to be read 


JJ 


1460 ; 








while 


inside a BRK. Here's how to read and print a character 


ED 


1470; 








in thi 


s casg: 


CC 


1480 ;this is just an example of how you 




loop jsr scnkey ;scan keyboard 


AD 

CF 


1490 ; would i 
1*100; 


use brk from within a program 




jsr getin ;read it 

beq loop 

jsr chrout ;priiit it 


NE 


^ ^' XX h—r ^ 

1510denio5 


Idy 


#0 




PAL- 


HN 
EB 
LN 
OO 


1520 demo 10 
1530 
1540 
1550 


1 Ida 
bcq 
jsr 

iny 
bne 


prompt, y 
demo 20 
chrout 


;print "number?" 


format source code to demonstrate simulating a trap 


with the BRK instruction: 


MB 


1 mJ-mJ^ 

1560 


demo 10 




GD 


lOsys 700: .opt oo 


OC 


1570 demo2C 


1 jsr 


getin 


; check the keyboard 


OB 


1000 ■**************************+***** 


HL 


1580 


cmp 


#3 


;(if stop key. quit) 


MB 


1010;* * 


DP 


1590 


beq 


quit 




MH 


1020;* simulating a trap with brk * 


ID 


1600 


cmp 


r\" 


;for numbers 1 thru 3 


DE 


1030;* * 


GO 


1610 


bcc 


demo20 




KD 


1040;* * 


MI 


1620 


cmp 


rr 




EE 


1050;* * 


KH 


1630 


bcs 


demo20 




HN 


1060 ;* brk vector is diverted so * 


PD 


1640 


jsr 


chrout 




IL 


1070 ;* that "invisible" subroutines * 


LE 


1650 


and 


#$0F 


;m^e # hex 1 - 3 


FF 


1080;* can be called. * 


EA 


!660 


sta 


trpnm 


;save in our own prog 


MG 


1090;* * 


NC 


1670 


Ida 


#13 


;print a carriage gosub 


GH 


1100;* * 


HG 


1680 


jsr 


chrout 




BM 


1110;* 'bylomhughes v022287 - *' 


JB 


1690 


brk 




;cxccule trap 


Kl 


1120;* * 


EF 


1 700 irpnm 


-bytO 


;(trap #) 


AK 


1 130 -*******=************************* 


HL 


1710 


jnip 


demo5 




KO 


H40; 




; (after brk 


, prg continues here) 


OJ 


1150 ;c64 equates 


OC 


1720; 








OP 


1160; 


EH 


1730 quit 


sei 






JJ 


1170 cbinv = $03 16 ;brk vector (2) 


DD 


1740 


Idx 


oldbrk 




CL 


11 80 chrout =$ffd2 ;outputachar 


DA 


1750 


Idy 


oidbrk+1 




PN 


1190circhn =$ffcc ;i/o to defaults 


CB 


1760 


stx 


cbinv 




AF 


1200getin = Sffc4 ;inputachar 


HA 


1770 


sty 


cbinv+l 




1 BD 


1210 memory = $8d ;iemp storage (2) 


Ci 


1780 


cli 






EK 


1220 oldbrk ^ S8b ;storage for standard brk (2) 


DI 


1790 


rts 




;back to basic 


10 


1230 stack ^ $0100 ;65xx stack location 


OH 


1800; 








Bl 


1 240 tidyup = $febc ;recover from interrupt 


DC 


1810 prompt 


-byl 13.13 




LP 


1250*=$c0O0 ;sys 49152 


KI 


1820 


.asc 


"number ( 1 


- 3)? ■' 


BN 


1260 ; -. 


AG 

AD 
NA 
EE 
EM 


1830 


.byt 







CK 
FO 
HJ 
EG 


1270 ;set brk vector to our routme 

12S0; 

1290 ;in actual use, this would be a subroutine 
1300 ;cailed once to divert the brk vector. 


1 840 ;===-----^========= 

1 S50 ;ncw brk routine 




1870; 








EJ 


1310; 


Ci 


1880 ;enTry (1) interrupts disabled (except nmi) 


PC 


1320 jsr clrchn 


FO 


1890; 


so jiffy clock is off. 


MC 


1330 sei ;disable interrupts 


CO 


1900; 








AD 


1340 Idx cbmv 


HG 


1910;(2)on 


entry 


slack looks like this... 


FC 


1350 Idy cbinv+1 


GO 


1920 ; (assuming old sp was at $f6) 
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AA 

BJ 

PM 

MN 

HL 

IB 

FD 

MD 

GF 

KF 

OH 

JP 

FE 

CI 

DK 

CH 

01 

CJ 

DO 

BB 

NK 

BB 

BL 

MH 

BN 

IK 

FE 

LH 

BH 

JF 

KH 

AK 

GK 

ID 

KE 

OF 

JD 

CH 

FC 

LM 

HN 

KJ 

NK 

LM 

BM 

CM 

BH 

HD 

MB 

KO 

PJ 

PF 

IF 

CB 

NM 

HI 

Al 

AK 



1930 
1940 
1950 
1960 
1970 
1980 
1990 
2000 
2010 
2020 
2030 
2040 
2050 
2060 
2070newbrk tsx 



$01 f 6 

S01f5 pch 

$01t"4 pel 

$01f3 sr 

$01f2 ,a 

$01fl .X 

$01fO .y 
SOIef 



<- old sp 

{stack+6) 
(stack+5) 
(stack+4) 
(slack+3) 
(stack+2) 
(stack+1) 
<- currem sp 



(3) expects trap # after brk 
(this location can be found by 
using the pc saved on stack -1.) 



2080 

2090 

2100 

2110 

2120 

2130 

2140 new 10 

2150 



table ,y 
memory 



2160 
2170 
2180 
2190 
2200 
2210 
2220 

2230 

2240 

2250 

2260 

2270 

2280; 

2290 ;trap addresses 

2300; 

23 10 table 

2320 

2330 

2340; 

2350 -.111111111111111111111111111111 

2360 ;demo trap routines 

2370 ;////////////////////////////// 

2380; 



Ida 

sta 

Ida 

sla 

bne 

dec 

dec 

Idy 

Ida 

tay 

dey 

tya 

asl 

lay 

Ida 

sta 

iny 

Ida 

sta 



stack +6 »x 
memory + 1 
stack+5,x 



;geiciirrent sp to .x 
;to find pc-high 



memory 
new 10 



;and pc-low on stack 
;save this address 
;and subtract - 1 from it 

memor>'+l ;so we can locate trap# 

memory 

#0 

(mcmory),y;gei trap # 

;adjustitso 1-3 
;is now 0-2 



;multiply this # by 2 

;and use it to look up 
;trap addresses 



table ,y 

memory+1 

(memory) ;go to a trap routine 



.word trapl 
.word trap2 
.word trap 3 



2390 trapl 

2400 

2410 

2420; 

2430 trap2 

2440 

2450 

2460; 

2470 traps 

2480 

2490 

2500 .^nil 



Ida 

Jsr 

jnip 

Ida 
jsr 

jmp 

Ida 
jsr 

imp 



ri" 

chrout 
tidy up 

#"2" 
chrout 
tidy up 

#"3" 
chrout 
tidy up 



;must end with ihis 



New! Improved! 

TRANSBASIC 2! 



with SYMASS 















"I used to be so ashamed of my dull, messy code, but 
no matter what I tried I just couldn't gel rid of those 
stubborn spaghetti stainsl" writes Mrs, Jenny R. of 
Richmond Hill, Ontario. 'Then the Transactor people 
asked me to try new TransBASIC 2, with Symass^. 
They explained how TransBASIC 2, with its scores of 
tiny 'tokens', would get my code looking clean, fast! 

"I was sceptical, but I figured there was no harm in 
givmg it a try. Well, all it took was one load and I was 
convinced! TransBASIC 2 went to work and got my 
code looking clean as new in seconds! Now Tm telling 
all my friends to try TransBASIC 2 in their machines!" 



TransBASIC 2. with Symass, the symbofic assembler. 
Package contains all 12 sets of TransBASIC modules 
trom the magazine, plus full documentation. Make your 
BASIC programs run faster and better with over 140 
added statement and function keywords. 

Disk and Manual $17.95 US, $19.95 Cdn. 

(See order card at center and News BRK for more info) 



TransBASIC 2 

Cleaner code, load after loadr 



u 
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Micro-Lisp Version 2.5 



A public domain Lisp interpreter for the C64! 



by Nicholas Vrtis 

Lisp is a language designed to work with lisis (its name is a 
contraction of LISi Processor)- It is one of the primary lan- 
guages used in the sludy of Artificial inteKigence. Micro-Lisp 
is a subset of this language that you can use to ieam more 
about its capabilities. Although there obviously isn't space in 
this article for a complete course in Lisp and Al, 1 would like 
to introduce you to the language and to my Micro-Lisp imple- 
mentation in particular. At the end of the anicie you'll find 
some suggestions for further reading if you want to know 
more. 

Why bother with a version of Lisp that runs on a slow 8 bit 
computer? Because it is an easy, inexpensive way to become 

familiar with the language, and to get a feel for what it is like. 
Why buy a model rocket? It can't go as fast or as far as the 
Space Shuttle, but you can still have fun and learn from it. 

r 

Lisp's World View 

Lisp divides the world into two classes of 'things'. On one 
side there is a List, and on the other is things that aren't Lists, 
Things that aren't Lists are called Aroms. As in physics, an 
Atom can't be broken down into something smaller (though 
you will find that you can explode and implode an Atom, just 
as in physics atoms can be taken apart if you know how), A 
word is an Atom, so is a number. If I take some Atoms, and 
collect them, 1 end up with a List (similar to taking atoms and 
collecting them into molecules), I can also take Lists and 
group them together, either end-to-end to make a longer List, 
or as aList of Lists. 

Big deal - what good are lists anyway? Actually, if you think 
about it, ahnost all the information we use is in the form of 
lists. Your checkbook fur example, is a list of three or four 
items of information about each check (the check number, the 
amount, who it is to, the date written, and possibly a budget 
category). To gel the amount I have spent on a given category, 
1 just go through my list of checks and add up the amounts for 
those checks with that category. That's a relatively simple 
Lisp application, and maybe not a very appropriate one - a 
good database program would prtibably be better, since it 



would allow you to sort the data and print a fancy report with- 
out alot of work. 

Lisp was designed to handle more complicated situations 
where you can't know in advance all the combinations and 
questions you might want to ask about the information you 
have. One example (which I'll be using throughout this arti- 
cle) would be a family tree. A List showing the name, sex, 
and parents of each individual in your family would be a 
good starting point. Each item on this List is made up of two 
Atoms (name and sex) and one List (Father's name, Mother's 
name). Notice that there is no item in the List concerning the 
individual's relationship to you, or to most other members of 
the family. We can gel this information, however, by apply- 
ing some simple rules; for instance; a brother ofx is any male 
whose parents are the same -as the parents of x. Before we 
discuss how Lisp lets us extract this kind of implicit informa- 
tion, however, we need to master a few of the language's 
technicalities. 

Lisp Fundamentals 

Lists in Lisp are enclosed in parentheses. For instance, while 
nick is an Atom, (nick) is a List that has one Atom, (nick m) 
has two, and (nick m (jim marionj} has two Atoms and a List 
(which itself has two Atoms). By the way, one of the hard 
parts about Lisp, especially for beginners, is keeping the 
parentheses balanced in the right places. Micro-Lisp has a 
couple of features to help with this. The command prompt 
shows the current number of unbalanced parentheses (the 
nesting level). Also, when you display a List, you can use a 
feature called pretty print to start each new level on a new 
line, and indent one space for each level. 

Another concept you need to understand about Lisp is how it 
represents "nodiing'. Since an Atom can be either a number or 
a word. Lisp can't use for numbers the way we do. Instead, 
Lisp uses an entity called nii Nil is special, because it can be 
either a List or an Atom depending on the situation. If you 
want to input the Atom nil, just enter the word nil. If you 
want to input a List with nothing in it, enter (). Whenever Mi- 
cro-Lisp displays an empty List, it will always display nil in- 
stead of fj. 
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We also need lo understand how to get Lisp to do something - 
how to give i! a command. Commands are given in the form 
of Lists (not surprisingly). A command List is no different 
from any other List, excepi that the first entry must be an 
Atom that is a command. For example, add is a command 
that sums the numbers in the rest of the List; the List (add I 2 
3) would add the numbers 1, 2 and 3. A List doesn't have to 
have a command as (he first entry unless you want to execute 
it (called evaluating it in Lisp). The documeniafion accompa- 
nying this micle shows the built-in commands available in 
Micro-lJsp. One of these - define - lets you create your own 
commands, which work just like the built-in commands. 
WeM* make^ use of this abiMty when we work on our family- 
tree project. 

Creating the family tree 

Let's begin that now. To slarr Micro-Lisp, just enter: 

load "micro-lisp",8 
run 

You'll see a title message and a flashing cursor. Now type: 

>0(set (quote family-tree) nil) 
nil 

The computer will respond by typing out nil (note; the exam- 
ples in this article use bold type for the computer's prompts 
and responses, and regular type for your input). Set is a com- 
mand that sets the value of the second Atom in the List equal 
to the value of the third (similar to a BASIC statement like 
FT$ = ""). Now we have a 'database' named FAMTLY-TREE 
with nothing in it. 

You might be wondering why you had to use the strange con- 
struction (quote family-tree^ instead of }mx family- tree. This 
reflects LISP's desire to use the value of a name in most cas- 
es. Consider the BASIC statement FT$ - A$, which assigns 
the value of AS to FT$. If we really wanted to assign the char- 
acters "A$'' to FTS, we have to use quotes. The quote com- 
mand in LISP performs the same function as the pair of dou- 
ble quotes in BASIC. If that is still confusing, try this: 

0> (set (quote tree-name) (quote family-tree)) 
family-tree 

0> (set tree -name 10) 
10 

0> tree-name 

family-tree 

0> family-tree 
10 

In this example, we begin by creating a new Atom - tree- 
name - whose value is the namt family- tree. When we now 
say (set tree-name 10), we are asking for the value 10 to be 
assigned to the Atom whose name is found by evaluating 
tree-name. After this operation, we discover that the value of 



tree-name is unchanged but, as expected, family-tree has the 
new value 10. Programmers who have used languages like as- 
sembler, C and PROMAL will recognize here an example of 
indirection; this application of it is fundamental to Lisp and 
you should make sure you understand the above example 
thoroughly. 

Since you end up using the quote command a lot in Lisp, 
diere is a shorthand version. It is a single quote mark C). It 
eliminates the word quote and a set of parentheses. We can 
thus write our original statement more concisely as: 

(set 7amily-lree nil) 

Go ahead and try it - Lisp is very interactive. If you ever want 
to know the value of a name, just type it on the command line 
without parentheses. 

A new command with define 

Now let's define a command of our own lo add a person lo 
our database. We use (he define command for this, and we'll 
keep it simple for now. Later you will probably want to add 
some checks to this command to guard against duplicate en- 
tries and to determine if the parents of a newly-added person 
are already defined. But start with: 

0>(define 'add-per^on '(person) 
1> Xprogn 

3> (sctq family-tree 

4> (cons person family-tree)) 

3> person)) 

Micro-Lisp should respond with odd-person. If not, make 
sure you haven't missed any quotes or parentheses (hint: if 
you have a number greater than zero in front of the > prompt, 
that is the number of parentheses you arc missing). You don't 
have to indent as shown above, though it helps show each 
level of the definition. 

There are a number of new items in this definition, but most 
are pretty simple. Define is the command that defines new 
commands to Lisp. It needs to know three things. The first is 
the name of the command (we are calling it add-person); the 
second is a List of the arguments (only one in this case - per- 
son); and the last is the body of the function. Note that quote 
marks are used» since we want the Hteral statements we typed 
in, not their value. 

The first command in the function body is pro^n. All this 
command does is tell Lisp to evaluate all the other items in 
the List. Normally, Lisp expects a command to be in the form 
(Command Argument Argument...). Progn leis you string a 
set of commands into one List in the form (progn (Command 
Argument .,.) (Command Argument ...) ,..), We need to do this 
in add-person because we want to do two things. The first is 
setq. This is a special vei^ion of set, which we used earlier. 
Setq allows you to skip the first quote. The variable we are 
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setting h family- free, our database. What we want to set it to 
is a List consisting of all the things already in famlly-iree plus 
the new person data. We use the cons command to do this. 
Con^ creates a List tomied from the first argument followed 
by the second argument. Note that i put person first, 'dndfam- 
ily-iree second* thus adding the new information to the front 
of the database instead of the end. For technical reasons this 
turns out to be faster than the other way around, but either 
way will work. 

The second item is not a command, just the word person. No- 
tice that it is not enclosed in parentheses. When Lisp sees just 
a variable iiiune without parentheses, it just takes the value of 
that variable, and leaves it as the return value. Everything in 
Lisp leaves some sort of return value; whenever Lisp has fin- 
ished processing the commands you have given it, ii prints 
out the final return value, WelJ, it turns out the return vaJue 
from setq is the value lo which the variable was set. In our 
case, this is the whole database. Since it could get lengthy to 
have it print out every time we add a new person to family - 
tree, we add the word person by itself; now our new com- 
mand has as its return value the information about the person 
we just added. We could have used a special variable called r, 
or nit but person might be more useful if we want to combine 
add-person into some other command. 

Let's test out what we have so far. Issue the following: 

0> (add'person *(nick m (jim marion))) 

(nick m (jim marion)) 

0> family-tree 

((nick m (jim marion))) 

The last should produce a List of Lists showing everything in 
our database. Since it is all scrunched together, enter (selpret- 
ty t), then famity-tree again. This will indent each level of 
parentheses and make the Lists a Jittle easier to read. Now 
build up the database a little by adding some more people 
with the following lines (this time. Lisp's responses are not 
shown): 

(add-person '(maryelna f (frank dorothy))) 
(add-person '(nikki f (nick maryelna))) 
(add-person '(mike m (jim marion))) 
(add-person Xtnattm (nick maryelna))) 
family -tree 

Notice that the database has become larger. 

Interrogating the database 

Now let's defme some new commands that will help us find 
things in the database. The first is a command to fmd some- 
body's name and parentage: 



3> (eq temp nil) 

3> (eq name (car (car temp)))) 

2> (setq temp (cdr temp))) 

1> (setq person (car temp))) 

There are more new commands here, but it is still pretty sim- 
ple, Defun is another version of define^ Like setq, it is a short- 
hand that eliminates the need for quoting its arguments. De- 
fun also supplies an implicit ;?w^'n» so we don't have to both- 
er with that either. We've seen setq before. Here we are using 
it to set a temporary variable to our database because we are 
going to have to check each item in it to see if the first Atom 
of the sublist is the name we are looking for. 

Dountil is a looping command. Until the first argument re- 
turns a true value (in Lisp, true means anything that isn't nit)^ 
this command will execute the remaining commands in the 
List, In our case, we will want to lemiinate the loop when ei- 
ther wc have run out of person entries in the database, or we 
have found the person entry whose first Atom is the name of 
the person we are looking fon 

Conveniently, Lisp has an or command to express this son of 
requirement. Or evaluates each of its arguments until it either 
finds a non-nil. or runs out of arguments (in which case it re- 
turns nil). The first argument is (eq temp nil). The eq tests to 
see if its two arguments are identical* so if temp is equal to 
nil, this command will return /. If temp is not nil, or goes to 
ilie next argument. This means there is a person List left, so 
we want to compare the first Atom in that List with the name 
we are looking for. 

To do this, we use the car command. Car returns the first part 
of its argument (which must be a List), Since temp is a copy 
of family- tree, the car (first item) of temp is the first ^person* 
Lis! in temp. The name is the first Atom in the List, so we 
take the car of the car of temp, and compare that to the name 
we're looking for. If they are the same, the eq will return t. 
and the dountil is done. Otherwise we need lo do something 
to look at the rest of the person Lists in temp. 

This is where cdr comes in, Cdr returns the tail of a List - ev- 
erything but the car. Since or told us that the current first List 
in temp isn't the one we want, we simply setq temp to every- 
thing but the first List, and repeat the process. Eventually, the 
dountil either runs out of Lists in temp {temp equals nil), or 
the car of temp is the person list corresponding to the name 
we want. When the dountil terminates, we return the car of 
temp. Note that the car of () is nil. ^o find-name returns either 
the person List of the name we asked for, or nil if the name is 
not found. Try (find-name ' nikki)\ you should get back (nikkif 
(nick maryelna)). 

Now for another simple, but useful command: 



0>(defun find-name (name) 
1> (setq temp family-tree) 
1> (dountil (or 



0> (defun parents-of (name) 

1> (cond 

2> ((fmd-name name) (setq parents (nth 3 person))) 
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2> (t (setq parents nil)))) 

parents-of 

Pretty easy, right? Only two new commands this time. Cond 
is the Lisp version of if, but a little more complicated. Basi- 
cally, the arguments for Cond are rhe members of a List of ;/ 
statements. Each argument List is a pair of commands. The 
first command in ihe pair is the condition part. If it returns 
non-nil, then the second command is evaluated. If the first 
command returns nily then the next condition is examined. 
There is a requirement in Micro-Lisp that at least one of the 
conditions in a cond statement must return non-nil, or it is 
considered an error. 

In parenfs-of, the Hrst condition is (find-name name). Recall 
that frnd-name returns the person List entry if the name is 
found, or nil if it Is noL If (find-name name) relums non-mV in 
the prescni case, we will want to set a variable called parents 
to the third item in the person List l\\'dl find-name relumed. To 
do this we use nth, a command that returns the nth entry from 
the third argument (a List), where n is specified by the sec- 
ond argument. 

In case the first condition returns nil (the name was not 
found), we need u> make sure that at least one condition is 
true (non-nil). Lisp supplies a variable called t that is guaran- 
lecd to return non-nil\ we use this for the second condition, 
and set parents to nil because we can't identify the parents of 
someone not in the database. Note that Lisp skips condition 
lesiing after the first true condition is found, so the second 

setq in the above defmition is never executed if the name we 
are looking for is found. Try (parent s- of ' nkk)\ you should 
get back (fim marion). 

One more short example: 

0>(defun grand -parents -of (name) 

1> (setq grand -parents 

2> (list 

3> (parenis-of (car (parents-of name))) 

4> (parenis-of (car (cdr (parenis-of name))))))) 

I 

Only one new command in the whole thing, and it is pretty 
easy to figure out what it does. List takes all its arguments 
and returns a List (simple, isn't it?). Think about what is go- 
ing on. Grandparents are parents of a person's parents, so all 
our new command has to do is create a List of the parents of 
the parents of the person in name. Parents-of returns a Lisl 
with the two parents" names. The car (first part) of this List is 
the name of one of the parents. If we now call parents-of with 
this, we will get one set of grandparents. The cdr (rest of) the 
original parent List is a List {cdr always returns a List) that 
has only one entry, the other parent. The car of that is the 
name of the other parent, and the parenis-of i]\2ii is the other 
set of grandparents. It takes a long time to explain, but it real- 
ly isn't complicated - just follow it through. Try (grand- 
parents-of ^ matty, you should get back ((Jim marion) (frank 
dorothy)). 



Where to go from here 

I could continue with more examples, but these should give 
you an idea of what Lisp is. Purists will probably be upset 
that 1 did not use recursion techniques in the examples. Lisp 
handles these very well, but I find them difficult to follow and 
harder to explain; I purposely kept the examples straighifor- 
ward. As you can see by examining the list of built-in com- 
mands, there are a lot of Lisp words that I didn't even cover. 
Experiment with them. Even more than BASIC, Lisp is inter- 
active. Try some things and see what happens. 

After you have some experience, try the command called set- 
debug. This turns on a trace facility that traces what is going 
on. Then use baktrack to see all that went on to get to where 
you are (with our simple family-tree, grand-parents-of goes 
through over 100 Lisp s^iements to get the answer). There is 
also a trace command that prints out the levels as they are be- 
ing executed. \i setdebug is / and there are symbolic variables 
(as name was in our examples) you get an opportunity to dis- 
play their values before Lisp restores them (enter nil to get 
out of this mode). 

There is an editor (entered with the edit command) that aL 
lows you to input and save Micro-Lisp source statements; you 
use the Micro-Lisp command source to load them into your 
Lisp ^environment'. To Micro-Lisp, your 'environment* is all 
the Lists and Atoms you have defmed. Use the commands 
save and load to keep and restore copies of your work. 

A separate program (*'sae.Hsp") is a special version of the 
Micro-Lisp edit command. This program runs without Micro- 
Lisp to iet you create Micro-Lisp source programs larger than 
would be possible with Micro-Lisp running (since Micro-Lisp 
and all your working Lists take up memory). 

Meanwhile, if Lisp interests you enough that you would like 
to know more about it, you might want to read some or all of 
these books and articles: 

Programmer's Guide To Lisp, by Ken Traction (Tab Books) 
Understanding Lisp, by Paul Gloess (Alfred Publishing) 
Lisp: Basically Speaking (SO Micro, May 19£^3) 
Design Of AN M6800 Lisp Interpreter (Byte, August 1 979) 
Three Microcomputer Lisps {Byte, September 1981) 

***** 

Editor^s Note: Unfortunately, with a lOK object file size, 
there is just no room for a program listing of Nick Vrtis^ Mi- 
cro-Lisp interpreter in the magazine. However, Micro-Lisp, 
some sample Lisp code and the SAE.Iisp stand-alone editor 
will be available on the disk for this issue, and will also be 
posted to Data Library 17 on CompuServe s CBMPRG Fo- 
rum. In the near future, Tran.saetor will also be releasing a 
special disk containing the MAE assembler source to Micro- 
Lisp, along with programming notes for those who wish to ex- 
pand or modify the interpreter for their own needs. 
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Micro-Lisp Built-in Functions 



COND 



(COND (tl rl)(t2 r2)) 



ABORT 



(ABORT msg) 



Stops current processing, displays the message that msg eval- 
uates to, and returns to the lop level processing. This function 
can be used lo define additional error processing. 



ABS 



(ABS n) 



Returns the absolute value of n. 



ADD 



(ADD nl „. nn) 



Evaluates tl and executes r] if t! returns nou-ftil. If ll returns 
nil, cond proceeds to evaluate tl. Note that i2 wili not be 
evaluated if?/ does not evaluate to nil. An error is issued if all 
tests evaluate to fi//. 



CONS 



(CONS xl x2) 



Returns a List that has xl as its first part (car) and x2 as its 
rest part (cdr). If xl and x2 evaluate xo Atoms, a special List 
called a *Do!ted Pair' is returned. 



Returns the sum of the numbers nl dirough nn. 



AND 



(AND xl ,.. xn) 



Evaluates x! and, if it is not nil, proceeds to evaluate the fol- 
lowing arguments until nit is returned, or the end of the argu- 
ment List is encountered. Note that and does not evaluate the 
following arguments ii nil is returned from any argument. 



APPEND 



(APPEND II 12) 



Retums the List created by appending 12 to the end of // 



APURGE 



(APURGE atm) 



Purges the Atom aim from memory and frees the space for re- 
use. Any references to atm in Lists are changed to reference 
nil. Apurge removes the value, definition, and property Lists 
of built-in functions, but does not remove the built-in defini- 
tion or free the space. 



ATt)M 



(ATOM X) 



Returns f (true) if j; evaluates to an Atom; returns nil other- 
wise. 



DECIMAL 



(DECIMAL) 



Sets the current number base to decimal and returns the num- 
ber 10. 



DEFINE 



(DEFINE fn arg x) 



Create a function called//? that has arguments specified in the 
list arg. The body of (he function is specified in the list x. In 
define, fn. arg, and x are evaluated. A defined function has an 
implied progn before the body. 



DEFUN 



(DEFUN fn arg x) 



Same as define, except ihat/«. arg, and x are not evaluated. It 
is a more convenient form when entering a function from the 
keyboard since quotes are not needed. 



DISKCMD 



(DISKCMD msg) 



Issues the disk command msg. This function opens and closes 
the disk command channel. 



BAKTRACK 



(BAKTRACK n) 



DISKST 



(DISKST) 



Displays the last w functions that were executed. Only valid if r^ , ^ ■.- , ■ , . , ^ t^ r ■ 

, , , , - . , . , , , . Reads the disk status via the command channel. The function 

a*?^we has been previously activated (see 5f';rf^£>i*e), , t ^. j . . 

opens and closes the coinmano channel. 



CAR 



(CAR list) 



Returns the first pan of list. 



CDR 



(CDR list) 



Returns the restof to after the first part (the car) is skipped. 



COLD 



(COLD) 



DISK$ 



(D1SK$} 



Reads die disk directory and returns a List of Lists about the 
disk. Each entry is a List of 3 Atoms. The first Atom is the 
number of blocks, the second is the file name, and the third is 
the file type. The first entry is the disk name, and the last en- 
try is the number of blocks free. 



Restarts Micro-Lisp from the beginning. All options and pa- DIVIDE (DIVIDE nl n2) 

rameters are reset to the way they were when RUN was is- 
sued. Returns the integer result of nl divided by nl. 
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DOUNTIL 



(DOUNTILtxl,..xn) 



A looping function. The test t is evaluated ant!, until it is true 
(non-mf). tlie expressions xJ through xn are evaluated (using 
an implied progn). DountU returns ihe \^o\^-mi value returned 
from the expression r. 



DO WHILE 



(DOVVHILE t xl ... xn) 



A looping function. The test i is evaluated and, while it is stilt 
true (non-rti/), the expressions xl through xn are evaluated 
(using an im^W^d pro ^n). Oowhik returns nil always. 



EDIT 



(EDIT) 



Exits Lisp to the BASIC screen editor. You may enter a Lisp 
program as you would a BASJC program. The only keywords 
that will function are LOAD, SAVE, LIST, NEW and END. 
END returns you back to Micro-Lisp, the others operate as 
expected. 



EQ 



(EQxlx2) 



Returns tifxl is identical !o.t2. Not very useful if comparing 
Lists, 



EQUAL 



(EQUAL xl x2) 



Returns t if xl is the same as x2, otherwise returns nil This 
will properly lest Lists. 



EVAL 



(EVAL \) 



Evaluates the List that x evaluates to. (Eval '(car '(a b))) will 
produce the same results as (car '(a b)). 



EXIT 



(EXIT) 



Leaves Lisp and returns to BASIC. 



EXPLODE 



(EXPLODE a) 



Returns a List of numbers that represent the ASCI! value of 
the name of the Atom a. Tf a evaluates to a number, it is con- 
verted according to the current base and the ASCII values of 
the digits are returned. 



GC 



(GC) 



: Forces garbage collection to take place. Returns /. 



GETDEF 



(GETDEF a) 



GETPROP 



(GETPROP a pn) 



Returns the properly value stored under the property name pn 
under the atom ^. Returns rt^V if /7/y is not defined under a. 



GREATER? 



(GREATERPnl,„nn) 



Returns i if the numbers nJ through nn are in descending or- 
der. No(e that equal is not considered descending. 



HEX 



(HEX) 



Set the current number conversion base to 16 (hexadecimal). 
Returns the value 10 hex (decimal 16). 



IMPLODE 



(IMPLODE I) 



Takes a List of numbers representing ASCII characters and 
returns an Atom whose print name is that series of ASCII 
characters. If any number is greater than 256, the ASCII char- 
acter is taken from the MOD 256 value. If the print name re- 
sulting from imploding the List results in a valid number, then 
it will be converted to a number. 



LAMBDA 



((LAMBDA (x)(b))y) 



A method of executing a function without defining it. The 
current value of a' is saved, then it is assigned the value of y 
and the body h is evaluated (with an implied progn). After b 
IS evaluated, x is restored to its previous value. Note that there 
may be more than one Atom specified in the argument list, 
and that there must be a one to one correspondence between 
the number of arguments and the number of values supplied. 



LENGTH 



(LENGTH x) 



Returns the number of elements in the list x. 



LESSP 



(LESSPnl,,.nn) 



Returns t if the numbers nl through nn are in ascending order 
Note that equal is not considered ascending. 



LIST 



(LIST xl „. xn) 



Returns a List containing a7 through j:«. 



LISTP 



(LIS IP X) 



Returns r if j: evaluates to a List, nil if x evaluates to an Atom, 



LOAD 



(LOADfn) 



Returns the definition of the function specified by a. Returns Loads a previously saved environment from file/rt. This must 
nil if a has not been previously defined. be executed from the first level. 
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LPAREN 



(LPAKEN) 



PROGN 



(PROGN (xl) „. (\n)) 



Outputs ^ht left parenthesis character. 



MEM 



(MEM) 



Prints out the number of free object enmes, the number of 
free List entries and the amount of unallocated memory (in 
bytes). Returns the amount of unallocated memory. 



MULTIPLY 



(Mt'LTIPLY 111 .« nil) 



Returns the product of nl limes n2 ... times nn. Note that no 
check is made for overflow. 



NEW 



(NEW) 



Clears memory of any user defined Atoms, Lists, and func- 
tions without changing settings such as pretty print, echo, or 
number base. 



NIL 



NIL, (NIL), or () 



This is the Lisp specification of "nothing'. As a value it re- 
turns nil; as a function it also returns nil. Tt is also considered 
both an Atom and a List. 



NTH 



(NTH n 1) 



Successively evaluates the specified function expressions, xl 
through xn. 



PUTPROP 



(PUTPROPapnpv) 



Puts the property value pv as rhe property pn of Atom a. If the 
property pn already exists, the old value is replaced by the 
new value. 



QUOTE 



(QUOTE X) 



Returns the unevaluated expressions 



RATOM 



(RATOM) 



Waits for a single Atom to be entered from the terminal. 



READ 



(READ) 



Reads an expression from the terminal 



RPAREN 



(RPAREN) 



Outputs a right parenthesis to the terminal. 



Returns the ^th clement of the List /. 



SAVE 



(SAVE fn) 



NULL 



(NULL x) 



Returns / if ^ evaluates to nil, returns nil otherwise (performs 
a logical NOT function). 



NUMBERP 



(NUMBERPk) 



Returns iif;t evaluates to a number, /j// otherwise. 



OR 



(ORxl ...xii) 



Evaluates x! and if it is nil. or proceeds to evaluate the fol- 
lowing arguments unti^ a non-nil value is relumed, or the end 
of the argument list is encountered. Note (hat or does not 
evaluate the following arguments if non-nil is returned from 
any argument. 



PATOM 



Prints the Atom a. 



(PATOM a) 



PRINT 



(PRINT X) 



Prints the expression x evaluates to, followed by a carriage re- 
tum. Print returns the value t. If the pretty print flag is set, 
each parenthesis level will be started on a new line, and wiH 
be indented. 



Saves the current environment (including all objects and 
Lists) to file//?. 



SET 



(SET a X) 



Causes the value of x to be assigned to the Atom a. 



SETBASE 



(SETBASE n) 



Sets the number base used for conversion for both input and 
output- Note that n is converted and evaluated with the cur- 
rent base before the new number base is set. 



SETDEBUG 



(SETDEBUG x) 



If X evaluates to nil, debug mode is turned off; if it evaluates 
to non-nil, debug mode is turned on. Debug mode is useful 
for problem detennination. If debug mode is on, Micro-Lisp 
Will track up to the last 128 functions. This tracking can be 
reviewed using the bakirack function. Unlike travel which 
displays die actual input arguments to a function, debug only 
tracks the unevaluated arguments. Debug mode also gives 
you an opportunity to print any Atom values before lambda 
and function arguments are restored in error processing. This 
is sometimes useful in detemiining what caused an error con- 
dition to occur. 
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SETECHO 



(SETECHO X) 



LNDEF 



(UNDEF a) 



Used to control the echo of source input to the icnninal. Removes the function definition from the Atom a. If a was a 
(Seiecho t) will cause all source input to be echoed (this is the native function that had been redefined, the native definition 
default setting). (Setecho nil) will eliminate the echo. will be restored. 



SETPRETTY 



(SETPRETTY x) 



Used to set the pretty print flag. \( x is uon-/?;7, pretty printing 
will be turned on and expressions will be printed with each 
parenthesis on a new line and indented for easier reading. If x 
is nil, the flag is turned off. 



ZEROP 



(ZEROPn) 



Returns r if « is equal to zero; returns nil if it is not. 



(+ nl „. nn) 



Shorthand for add^ 



SETQ 



(SETQ a x) 



Causes the value of j: to be assigned to the Atom a (similar to 
ser^ except that for setq, a is not evaluated). 



SOURCE 



(SOURCE fii) 



Directs that input is to come from the disk file//? instead of 
the keyboard. Input is obtained from there until the end of the 
source file- The source file may contain another source state- 
ment. This will close the current source tile and open the new 
source file for input. 



SUBTRACT 



(SUBTRACT nln2) 



Returns the value nl - n2. 



SYS 



(SVSadrxyaf) 



Invokes a machine language routine ui address adr. The val- 
ues for the X, }\ a and/(flag) registers are optional and speci- 
fied by the corresponding arguments. This function will not 
allow the IRQ flag to be set, but any other processor flags can 
be set with the / argument. This function returns a List of 
numbers consisting of the values of the X. Y, A and FLAG 
registers after the return from the machine code call. 

T T, (T) 



(- nl n2) 



Shorthand for subtracL 



(* nl ... nn) 



Shorthand for multiply. 



{/nl nl) 



Shorthand for divide. 



Special Input Characters 

^ Used to Stan and end a comment. All characters between 
the first ^ and the second ^ are ignored, (Note: this character 
prints on your C64 screen as an up-arrow.) 

* Used as a shorthand for (quote ...) - {quote xj can be short- 
ened to 'x. Note the dropping of the word quote and a set of 
parentheses, 'X will print out as (quoie x). 

Used to aHow special characters and spaces to he included 
in an Atom name. Any characters between the double-quotes 
will become part of ihe Atom name. The double-quotes them- 
selves will not become part of the name. 

$ Used to specify a base 16 (hex) number regardless of the 
current setting of base. Must precede any digits. 



T is one method of specifying a non-m7 value. As a function, t . Used to specify a base 10 (decimal) number regardless of 
returns t. the current setting of base. Must precede any digits. 



TERPRI 



(TERPRI) 



Causes a carriage return to be output. 



TRACE 



(TRACE X) 



Causes each funciion level and its arguments to be output to 
the terminal as it is evaluated. Note that the actual evaluated 
arguments are output. 



Used to specify a base 8 (octal) number regardless of the 
current setting of base. Must precede any digits. 



Additional notes 

r 

All numbers are stored as 24-bit signed integers. This allows 
a range of +8,388.607 to -8388,608. 

Cursor control keys work as they do in BASIC. 
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An Algorithm for 6510 Mnemonics 



The challenge: to find the ideal mnemonic-to-opcode algorithm 



hy Glen C, Bodie 

In ihe March 1987 issue of Transactor^ Chris Miller wrote a 
very interesting article entitled "Assembling Assemblers''. In 
his discussion of command look-up tables, he challenged 
"anyone to come up with an algorithm that will generate a 
unique, one byte value for every standard 6510 mnemonic/' I 
love a good challenge! At first I thought it trivial, but it soon 
proved more complex tiian it first ap- 
peared. In general terms, the problem 
is to derive an algorithm that maps 56 
unique three -character alphabetic 
strings into a unique value between 
and 255 inclusive. 



\..why not use the 

computer for what it is 

best at - dumb, repetitive 

searching/ 



There are all sorts of simple a!gc»nthms 
that quickly come to mind. As an ex- 
ample, why not jusi add up the ASCi! equivalents of each let- 
ter in the mnemonic? For all the examples, Til use the 
mnemonic "LDA", 

code = ascC'l") + asc("d") + asc("a") 

That is simple enough, but the CODF. is not unique since 
"ADC" and '^BCC" would produce the same resuh. Also the 
value of CODE ranges between 195 and 270 so it still needs 
some scaling. The easiest way to get CODE withiri range is to 
make each letter a value relative to "A". Now our algorithm 
looks like: 

code = (asc('1") - asc("a")) + (asc("d") - asc("a")) + 
(ascC'a") - asc(^"a")) 



by the base to some power, that is, by 1 , 10 or 100. We can do 
the same thing with letters by multiplying each position by 1, 
26 or 676- If we do that, the results are guaranteed to be 
unique, but the range is now to 17576 and we need to map 
that into to 255. 

Before we get carried away with trying to find some map- 
ping, think about how this will eventually be coded in the as- 
sembler. First of ali» it will be written 
in machine language (ML). Multiply- 
ing by 26 in ML is a little awkward 
and time consuming. Instead of using 
26 as the base, why not use 32 as the 

base since multiplying by 32 is the 
same as shifting left 5 times. The re- 
suhs will still be unique, but now the 
range is to 32768! 

We can iry to map 32768 into 255 by simple techniques (such 
as ANDing with 255) or more complex techniques (such as 
XORing the high and low bytes}, but these all turn our unique 
CODE into something thai is no longer unique. It seems that 
the straightforward approaches just aren't going to work, A 
mathematical, analytical approach is beyond me, so why not 
use the computer for what it is best at - dumb, repetitive 
searching. What we want it to do is try a lot of aUernative 
combinations of multipliers and transformations until it finds 
one that generates unique codes in the range to 255, 

What Computers do Best 

To limit the problem, let's first make two simplifications: 



Now the range is to 75. That's great, but ihe CODE is still 1) Only use power of 2 multipliers 

not unique. So how are we going to make it unique? That's 2) Use a transformaiion of the letters to reduce the combina- 

where it starts to get weird! tions 



Base 10 and Base 26 

Think about nonnal decimal numbers. In the value 444, the 4 
has a different value in each position because it is multiplied 



For the transformation, there are only 14 possible first letters, 
18 possible second letters and 15 possible third letters. All the 
combinations of these result in a CODE between and 3780, 
The first step is to get the ASCII value of each letter, make it 
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The program ran for over 30 hours 
before finding this answer' 






relative to "A", then use that in a table bok-up to get a value 
between and 14, and 18 or and 15. One key benefit of 
this is thai we will discover very quickly if the mnemonic is 
invalid- Now our algorithm looks like this: 

code = (-(lablel(X-V') *kl + 
lable2("d"-"a") * k2 -f 
table3(V-'V)*k3))and255 

Without juggling Ihe tables around and using K1^K2=K3=1, 
the code was not unique, so a little bit of searching was re- 
quired. Program 1 does this. There are probably other an- 
swers and maybe even belter ones, but this one works! The 
program checks through 13 different sets of multipliers and 
shifts all three tables through all the combinations. This 
comes out to a totai of 49140 situations to check, calculating 
the CODE for each of the 56 mnemonics until it fmds a dupli- 
cate or suceeds- The program ran for over 30 hours before 
fmding this answer. 

Program 2 is the resulting algorithm coded in BASIC and 
program 3 is the same thing in ML. The resulting CODE is a 
value between and 255 which can be used in a table look-up 
to route the assembler to the correct processing, where the 
operand field could be parsed, the addressing mode deter- 
mined, elc. Invalid mnemonics are found whenever the table 
results in a transformed value of zero. It is possible to input 
an invalid mnemonic that can be transformed without error 
into the same CODE as some valid mnemonic. This will have 
to be caught in the processing routine for each mnemonic by 
checking when you get there if the mnemonic really was what 
you were expecting. 

There are two obvious alternatives to this solution: 

1) a binary search tree 

2) a hashing algorithm 

The binary search is a classic programming technique for 
searching through ordered lists in the minimum number of 
comparisons. And though diis program is a hashing algorithm 
of sorts, a true hashing algorithm would deal with duplicate 
codes» in case several mnemonics "hashed" to the same 
CODE, 1 don't know if Mr, Miller ended up using either of 
these. Both would work for sure, might be faster ihan this al- 
gorithm and have one large advantage - what if another 
mnemonic needs to be added to the hst! 

So, there it is - an algorithm to generate a unique code for 
each 6510 mnemonic, I sure love a good challenge. 



Program 1: This is the program that was used to generate 
the tables and constants so that the formula to find CODE 

(see text] would generate a unique value for each of the 56 
opcode mnemonics. It takes 30 hours to find the solution, 

PG 100 rem program 1 - 

MI 110 rem 

FL 120 rem -- find die right algorithm - 

AK 130 rem 

PL 140 n=56: dim op$(n),op(n) 

KF 150 for i=l to n: read op$(i): op(i)=0: next 

EK 160 data adc,and,asKbcc,bcs,beq,bil,bmi 

DJ 170 data bne,bpl,brk,bvc,bvs,ck,cld,cli 

CH 180 data clv,cmp,cpx,cpy.dec,dex,dey.eor 

FA 190 data inc,inx.inyjmp,jsr,ida,ldx,ldy 

EK 200 data lsr,nop,ora,pha,php,pla,plp,rol 

BL 210 data ror,rti,rts,sbc,sec.sed,sei.sta 

LM 220 data stx,sty,tax,iay,tsx,txa,txs,tya 

FN 230 def fnh(x)=int(x/256) 

EF 240 def fnl(x)=x-fnh(x)*256 

JK 250dimtr(2,25) 

BD 260 for i=0 to 2: for j^O to 25 

PM 270 read ir(i,j): next jj 

lO 280 data 1, 2.3, 4. 5, 0, 0, 0,6, 7 

AE 290daEa 0, 8,0, 9, 10. H, 0, 12, 13. 14 

EN 300data 0, 0,0, 0, 0, 0, I,, 2, 3, 4 

KH 310data 5, 0,0. 6, 7, 0, 0, 8. 9, 10 

lO 320datall,I2,0, 13, 14,15, 0. 16, 0,17 

BL 330 data 18. 0. 1. 0, 2. 3, 4, 0, 0, 

GJ 340 data 5, 0,6, 7, 0, 0, 0, 8. 9, 10 

JM 350 data 11, 12,0. 13, 0, 14, 15, 

PP 360dimk(12,2) 

MF 370 for 1=0 to 12: for j=0 to 2: read k(iJJ: next j.i 

BF 380 data 1,1,1, 1,2,4. 1.4,2 

PG 390dala2,l,4, 2,4,1, 4.2,1 

PH 400data4.1,2, 1,4.16,1,16,4 

JF 410data4,l,16, 4,16,1, 16,4,1, 16,1.4 

HK 420forkk=0to 12 

BE 430 kl=k(kk,0): k2:=k(kk.l): k3=k(kk.2) 

CD 440fora0=0to 13 

DE 450 for bO^O to 1 7 

NE 460forc0=0to 14 

FJ 470 print "kl/k2/k3/aO/bO/cO="kl:k2;k3;a0;bO;cO 

BD 480 gosiib 2000: rem execute algo 

DA 490 next cO, bO, aO, kk 

AA 500 print "nothing worked!'* 

OP 510 end 

HH 2000 rem — - 

BF 2010 rem execute the algorithm 

CA 2020 rem 

CO 2030xx=asc("a") 

AA 2040 for 1=1 ton 

AD 2050a$=left$(op$(i),l) : a-asc(a$)-xx 

EF . 2060b$=mid$(op$(i).2,l):b=asctb$)-xx 

NE 2070 c$=right$(op$(i),l); c=asc(c$)-xx 

AL 2080al=tr(0,a}+aO: a2=al-int(al/14)*14 

:ifa2=0thena2=14 

FA 2090bl=tr(l,b)+bO:b2=bl-int(bl/lS)*18 
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:ifb2^0ihenb2^i8 

GA 2iOOcl=ir(2,c)+cO:c2=cl-mt(cl/15)*=15 

:ifc2=0thenc2=15 

U 21 10 X = a2*kl + b2*k2 + c2*k3 

DA 2120op(i)-fnKx) 

MB 2130 it 1=1 then goto 2170 

FD 2140tori=ltoi-l 

DF 2150 if op(i)=op(j) then gosub 

CF 2160nexEJ 

JF 2170 next i 

Nl 2180 prinfit works!": end 

Program 2; This is a BASIC jmplemeniation of the algorithm 
calculated by Program I . It prints each mnemomc along with 
the code generated; each code is unique, and could he used 
to direct an assembler to the appropriate parsing routine for 
the opcode. 

KA 100 rem program 2 

MI 1 10 rem 

LK 120 n=56: dim op$(n),op(n) 

GL 130 for i=l lo n: read op$(i): next 

AJ 140 data adc.and,asl,bcc,bcs,beq,bit,bmi 

PH 1 50 data bne,bpl,brk,bvc,bvs,clc,dd,cli 

OF 160 data clv,cmp,cpx,cpy4ec,dex,dey,eor 

BP 170 data inc,inx,iny,jmpjsr,ldaJdx.Jdy 

AJ 180 data hr,nop,ora.pha,php,pla,plp,roi 

NJ 190 data ror,rti, its ,sbc, sensed, sei.sta 

HL 200 data stx,sty,tax,tay,tsx,t\a»txs,tya 

AP 210 rem 

GH 220m=25:dimtl(m),t2(m),t3(m) 

Fi 230 for i=0 to m: read tUi): next 

lO 240 data 6. 7, 8, 9,10. 0. 0, 0, 11 

BE 250data 12. 0, 13, 0, 14, 1, 2, 0, 3 

DO 260 data 4. 5, 0. 0. 0, 0. 0, 

AL 270 for i=0 lo m: read t2(i): next 

HF 280 data 10, 11. 12, 13. 14, 0, 0, 15. 16 

DB 290data 0, 0. 17, 18. 1. 2, 3, 0, 4 

JD 300 data 5, 6, 0, 7. 0, 8, 9, 

LN 310 for i^O to m: read i3(i): next 

EE 320 data 4, 0, 5. 6. 7. 0. 0, 0, 8 

DC 330 data 0. 9. 10, 0, 0, 0, 11, 12, 13 

OE 340daia 14. 15, 0, 1, 0. 2, 3. 

MH 350 rem 

EF 360 rem — execute the algorithm 

AK 370 rem given an opcode mnemonic in 'op$\ 

IK 380 rem this routine puts a corresponding 

EK 390 rem code in 'x\ the code is guaranteed 

DA 400 rem tobenniquefor each 65 10 mnemonic. 

DE 410 for i=l to n: op$=op$ti) 

EB 420 a=asc(left$(op$.l))-asc("a") 

OH 430a=ll(a): if a=Ogoio 1000 

CK 440b=asc(mid$(opS,2.l))-asc("a") 

U 450 b=t2(b): if b=0 goto 1 000 

CE 460 c=asc(right$(op$, t ))-asc("a") 

IL 470 c=^t3(c): if c=0 goto 1000 

JE 480 x=(a* 1 + b* !6 + c*4) and 255 

HG 490 op(i) = x: next 



CD 500 rem 

AI 510 rem — print results from array 

GC 520 rem 

DL 530 print" 65 10 Mnemonic Algorithm" 

OE 540 print 

CM 550 for i=l to 54 step 3 

OB 560forj=itoi+2 

IH 570 prim op$0)"="nght$('^ '■+str$(op(j)),3)" "; 

IJ 580 next: print: next 

KM 590 print op$(55)"="righ($(" "+str$(op(55))3)'' "\ 

GE 600 print op$(56)"="right$(" "-f-strS(op(56)),3) 

CG 610 end 

EM 1000 rem — invalid mnemonic 

Program 3; The machine -language implementation of the 
opcode algorithm in Program 2. 



NA 

Ml 

GL 

AK 

IC 

HG 

BL 

U 

CI 

ED 

KK 

IE 

JC 

DP 

JL 

DP 

MP 

PC 

OT 

LD 

CK 

NG 

GL 

ON 

KM 

OK 

OL 

HB 

JL 

GI 

DO 

HD 

DP 

JB 

IL 

IB 

OC 

NA 

ID 

AG 

LA 



100 rem program 3 

1 10 rem 

120 rem pal64 formal source 

130 rem 

140 open 2,8. l."0:omput" 

i50sys700 

160 .opt o2 

170*= ScOOO 

180 jmp begin 

190; 

200 ; table of mnemonics 

210; 

220 mnem =* 

230 .asc "adcandaslbccbcsbeqbitbmibnebplbrk" 

240 -asc "bvcbvsclccldcliclvcmpcpxcpydecdcx" 

250 -asc "deyeorincinxinyjmpjsrldaldxldylsr" 

260 .asc "noporaphaphpplaplpmlrorrtirtssbc" 

270 .asc "bCCsedseistastxstyEaxtaylsxtxatxstya" 

280; 

290 ; resulting op-codes 

300; 

3 10 ops *= *+56 

320; 

330 ; tables for transformations 

340; 

350tablel=* 

360 .byte 6, 7, 8,9,10, 0,0,0, 11 

370 .byte 12,0, 13,0, 14, 1,2,0, 3 

380 .byte 4,5, 0,0, 0, 0,0,0 

390 

400 iable2 ='^ 

410 .byte 10, 11, 12. 13, 14, 0, 0, 15, 16 

420 .byte 0, 0, 17, 18, 1, 2. 3, 0, 4 

430 .byte 5, 6, 0. 7, 0. 8. 9, 

440 

450 table3 =^ 

460 .byte 4, 0. 5, 6, 7, 0. 0, 0, 8 

470 -byte 0, 9. 10, 0, 0. 0. II, 12. 13 

480 .byte 14, 15. 0, I, 0. 2. 3, 

490; 

500 ; execute the algorithm 
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EH 


510; 






PH 


520 begin 


Idy #0 


AG 


530 




sty opsx 


GJ 


540 loopl 


Ida ninem+0,y 


HK 


550 




sec 


AP 


560 




sbc asca 


FA 


570 




tax 


DA 


580 




Ida table l,x 


El 


590 




beq error 


HC 


600 




sta temp ; (lefi-)*l 


KK 


610 




Ida mnem+l,y 


NO 


620 




sec 


GD 


630 




sbc asca 


LE 


640- 




tax 


LE 


650 




Ida table 2, X 


KM 


660 




beq error 


HH 


670 




Isr 


Bl 


680 




Isr 


LI 


690 




Isr 


FJ 


700 




Isr 


MD 


710 




clc 


PC 


720 




adc temp 


GO 


730 




sia temp ; +(mid-)*l6 


oc 


740 




Ida mnem4-2,y 


PG 


750 




sec 


IL 


760 




sbc asca 


NM 


770 




lax 


PVl 


780 




Ida table 3, X 


ME 


790 




beq error 


JP 


800 




Isr 


DA 


810 




Isr 


KK 


820 




clc 


ML 


830 




adc temp ; +(righl-)*4 


EF 


840 




Idx opsx 


10 


850 




sta ops,x 


ID 


860 




inx 


AL 


870 




six opsx 


AF 


880 




iny 


KF 


890 




iny 


EG 


900 




iny 


PG 


910 




cpy#168 


CG 


920 




bne loopl 


FD 


930 




beq conil 


CC 


940; 






MH 


950; 


error routine 


GD 


960; 






KK 


970 error 


=* 


KE 


980; 




n 


DG 


990; 


prim results/process code byte 


OF 


1000 


J 
> 




NC 


lOlOconll 


=* 


CH 


1020 


4 




EP 


1030 


; data . 


areas 


Gl 


1040 


^ 


1 


AE 


1050 


opsx 


-byte 


AI 


1060 


asca 


-asc "a^^ 


NB 


1070 


lemp 


.byte 


BB 


1080 


,end 
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From the famous book of the same name. Transactor 
Productions now brings you Bits & Pieces i: The Diskf 
You'K thrill to the special effects of the screen 
dazzlersf You'll laugh at the hours of typing time 
you'll savel You'll be Inspired as you boldly go 
where no bits have gone before! 



"Extr3ordin3nty fatttifui to the plot 
of the book. . . The BAM alone is 
worth the price of sdmissioni" 

Vincent Canbyte 



'Absolutely 
magnetic!!' 

Gene Syscal 



"If you mount only one bits disk in 1987, make it this 
one! The futiy cross-referenced index is unforgettabiel 

Recs Read, New York Tf$ 



U/ARMfNG. Stjme sectors coniain null Dyies Raced GCR 



6fn a PIECES I THE DISK, A Mylar Film, in association wrth Transactor Producilons. 

Playing at a drive near youl 

Disk $8.95 US. S9,95 Cdn. Book S 1 4.95 US, S ; 7.95 Cdn. 
Book & Disk Combo Just S 1 9.95 US, S24.95 Cdnl 
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An Accurate TI$ 



Long-term timing accuracy for the C64 and CI28 



by Noel Nyman 

TI$, and its companion numeric variable Tl. are handy for 
timing applications. TI$ is easily reset and it*s always there in 
BASIC- Tl can also be read or set through the kemal RDTIM 
and SETTIM routines in machine language programs, 

TI is incremented from the iRQ» or hardware interrupt rou- 
tine. IRQ occurs about sixty times each second, IRQ adds 1 to 
Tl each time it occurs. So, TI counts l/60ths of a second, of- 
ten called ^jiffies\ 

TI is only as accurate as the IRQ frequency. Routines That halt 
interrupts also stop the TlyTl$ clock. Disk and tape accesses 
are the common causes of an 

inaccurate jiffy clock. Bui 
any machine language thai 
contains an SEl (SEit Inter- 
rupt mask), will have the 
same effect. 



even to the ponderous IMHz clock in the C64, so it's easy to 
monitor cjr control many machines at the same time with a 
very inexpensive, easily programmed computer. For more in- 
formation on control and monitoring applications, see Practi- 
cal Interfacing Projects With The Commodore Computers, by 
Robert Luetzow (TAB Books}. 

TI$ was not accurate enough for our client- The TOD (Time 
Of Day) clocks in the CIA chips seemed like a good choice to 
him. Bui reading and using them is much more difficult than 
using TI or TI$. 

The TOD keeps lime accurate to one-tenih of a second in four 
addresses or registers (see figure 1). The information is held 

in BCD (Binary Coded Dec- 
imal), a compact way of 
storing decimal digits- BCD 
complicates the task of using 
ihe time numerically. 



There are two very accurate 
clocks in the C64 and C128, 
one in each CIA (Complex 
Interface Adaptor) chip- The 
clocks' timing is maintained 
by the power line frequency, 
and is accurate to a few mil- 
honths of a second each day. 

As the power load increases during the day, the frequency 
drops slightly. Your friendly power company monitors the fre- 
quency changes closely- Then, during non-peak hours, it in- 
creases the frequency a bit to compensate for the earlier 
changes. 

The C64/C 1 28 operating systems do not make use of cither of 
the CIA clocks. 

One of our clients wanted to use aC128 for industrial process 
control. The C64 and C12S are excellent cost effective choic- 
es for this type of application. They have an ''open architec- 
ture*', which means you can get at all the internal signals eas- 
ily. Most industrial events occur in "real time", very slowly 
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AM/PMFag: AM-0, PM=1 
T=tens digit U=units digit x=unused 



Bit Functions in the TOD Clock 



:j 



Our client was monitoring 
ihe 'on time* of various plant 
machinery, and counting 
produced parts- His software 
combined time and counts in 
several statistical ways. HeM 
intended to use the Tl 
counter, simply holding in 
memory the starting Tl and 

the ending Tl. Subtracting the two gives the total machine 

*'on lime" in jiffies. 

To do that using the TOD requires extracting seven BCD dig- 
its and die AM/PM flag. Then the digits must be converted in- 
to tenths of seconds and added together. A different conver- 
sion is required to display the digits as time on the screen. 
What was needed was a way for the TOD clock lo keep Tl 
and TI$ accurate. 

Maintaining An Accurate TI 

Our approach was to modify the IRQ routine to monitor the 
TOD clock in C1A#1. 
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Since our client needed accuracy over a long period, we up- 
date T\fTl$ only once every hour. The new rontine looks for 
minutes, seconds, and tenth-seconds in the TOD to all equal 
zero. When that occurs, the routine reads the TOD and up- 
dates the three bytes in zero page memory that make up TI. 
BASIC generates TIS from TI whenever requested, so an ac- 
curate TI means an accurate TJ$. 

The *'New-IRO" roulme gets the data for the TI update from 
three 25-byte tables. A value in each table corresponds to the 
value found in one of the three bytes of TI at the start of each 
hour. The routine determines the hour from the TOD houni 
byte and uses that value as an index to each of the three ta- 
bles. 

If you needed more accuracy, you could update TI each 
minute. That would require three tables of 1500 bytes each, 
much too large. You could use an algorithm to calculate the 
three values for TI. But in practice, an update every hour is 
accurate enough for real time applications. 

Quirks in the TOD 

There are only iwcnty-four hours in a day, A 25 byie table is 
needed because of an anomaly in Jhe TOD clock. The TOD 
uses a twelve hour format, with an AM/PM flag, see figure 
#1. For example, 11 a,m. is represented by the value 17 ($11) 
stored in the hours register. Bit #4 is set for the lO's digit, for 
a value of 16. Bit#l is set for the Ts digit. 

For II p.m., the value is 145 ($91). Bits #4 and #0 are set. Bit 
#7 is set for PM, value 128. That's all very ^straightforward. 
The problem arises with 12 o'clock. 

In twenty-four hour formal, the lime just after midnight is 
called '00' hours. In twelve hour format, we call it 12 a,m., so 
1 2 noon ( 1 200 hours) becomes 1 2 p.m. to us. The TOD, how- 
ever, will clear the AM/PM bit if you try to set it with a 12. If 
you poke the hours register with a 146 to set 12 p.m., the 
TOD will change ii to 18, its normal representation for 12 
a.m.! If you POKE an 18, the TOD happily changes it to 146, 
or 12 a.m. 

To set the TOD properly, wc have to poke *00' for 12 a.m., 
and M8' for 12 p.m.. But when we read the TOD, an M8^ in 
the hours register means twelve a.m-, and a "146" means 
twelve p.m. 

So, there are two possible values for 12 a.m., ^0* if weVe just 
set the TOD, and M8' if it's counted to a new day on its own. 
These added to the other twenty-three hour values make up 
tables of 25 bytes. 

Using the New IRQ Routine 

First, run the BASIC program "Create". A program named 
**New-IRQ" wih be created on device #8. You can change the 
name or device number in hne #1050- When prompted, enter 



the starling address in decimal. If there are errors in the 
DATA statements, youMI gel an error message. Scratch 
*^New-IRQ", correct the DATA errors, and run ^'Create'* 
again, 

"Create" is a complex generator because the *'New-lRQ^' 
routine is not relocatable. There are several addresses and 
vectors that will change, depending on where you decide to 
place the code. 

You need this flexibility. ''New-TRQ" will work on either a 
C64 or a C128, But the 'safe' places to store machine lan- 
guage code vary between the two machines. "New-IRQ'^ us- 
es 186 bytes. Anywhere in the area between 49152 and 53247 
($CO(X)-$CFFF) is good on the C64, On a CI 28, the area 
starting at 4864 ($1300) may be safe. The tape buffer and 
RS232 buffers are good choices, if your software doesn't use 
them. In any case, keep the code below 16384 ($4000), so the 
new routine will be 'visible' regardless of what bank you're 
in when an IRQ occurs. 

Line#lllOcompensatesforabugin the 65xx/85xx family of 
processors. Once ^'New-IRQ^' is finished, the standard IRQ 
routine is executed by an indirect jump, JMP {$COFF) in ma- 
chine code. The actual address jumped through will depend 
on where you bcatcd the "New-IRQ", The indirect vector 
may span a page boundary. In our example above, the vector 
sits at $COFF and SCIOO, When this happens, the indirect 
jump will not work properly (see 6502 Assembly Language 
Programming, by Lance Leventhal, pages 3-13). 

Line #1110 checks for this possibiHty and, if found, adds a 
NOP code to the start of "New-tRQ'\ This makes the code 
one byte longer, but avoids the bug under ail circumstances. 

LOAD "New-!RQ",8.1 either before you run your main pro- 
gram or from within the program hself. Use SYS xxxxx 
(where xxxxx is the decimal starting address you used with 
*'Creale") to initialize the routine. 

The program "BASIC Time" sets TIS and the TOD to the 
current time, taking care of the 12 oVIock anomaly Add 
*'BASIC Time" as a subroutine to your program, and call it 
early. 

You can also use *'New-lRQ" as a stand-alone program to 
keep Ti$ accurate in direct mode. Be sure to use "BASIC 
Time" to set the clocks, changing the RETURN in line 
#50150 to END, 

In either program or direct mode, pressing the RESTORE key 
will disable '^New-IRQ". A SYS to the starting address will 
re-enable it. Although you can call "BASIC Time*' again, it's 
probably not necessary. Unless the computer is shut off, the 
TOD and TI will continue running after RESTORE is 
pressed. 
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Listing 1: "BASIC Time" subroutine 

MP 50000 rem subroutine to get time from 

BL ^0()05 rem user and convert for li$ and 

LE 50010 rem the tod clock in cia #L 

DN 50015: 

AN 50020 rem by noel nyman 

NN 50025 : 

CH 50030 rem called as a subroutine 

HO 50035 : 

JE 50(M(I rem uses the following variables 

EC 50045 rem ap - am/pm flag, am=0 pm= 1 

GM 50050 rem hi - hours, used for tod 

EH 50055 rem mt - minutes, used for tod 

GA 50060 rem sc - seconds, used lor lod 

KE 50065 rem It- temporary variable 

GO 50070 rem tt%- temporary variable 

EL 50075 rem htS- hours for li$ 

MO 500S0rem mtS- minutes for ti$ 

IN 50085 rem stS- seconds for ti$ 

DA 50090 rem lt$- temporary for li$ 

FD 50095 rem ap$- temporary variable 

HC 50099: 

CN 50100 prim "current lime is " lefi$(ii$.2) ":" midS(tiS,3,2) ":"; 

BH 501 10 print nghi$[iiS.2) 

FD 50120 print: print "enter new time, or [rvs] [rvs off] to quit" 

ID 50130 prim: prim "enter new hours (0-23): "; 

GP 50140 open 9,0: input#9,hlS:close9 

MJ 50150 ifhtS="" then return 

Ml 50160 ht=val(hi$): if hi<0 or hl>23 goto 50130 

Ml 50170 ap=0-(ht>12) 

IH 50180: 

EC 50200 print: print "enter new minutes (0-59): "; 

GE 50210 open 9.0: inpu!#9,miS:close9 

IP 50220 mi=val(mlS): if mt<0 or mt>59 goto 50200 . 

DL 50230 if len(mtS)<2 then mt$="00"+mt$ 

EL 50240: 

HE 50300 print: print "enter new seconds (0-59): "; 

GL 50310 open 9,0; input#9>st$: close9 

GA 50320 sc=val(st$): if sc<0 or so 59 goto 50300 

LD 50330 if len(si$)<2 then st$="O0"+sl$ 

IB 50340 : 

AG 50400 if ap goto 50500 

GJ 50410 print: if ht<12 goto 50460 

BI 50420 print "am or noon (a/n)?"; 

DH 50430 gel ap$: if ap$="" goto 50430 

IL 50440 if ap$<>"a" and ap$<>"A" and ap$<>"n" and ap$<>"N" 
goto 50430 

FE 50450 ap=0-(ap$^"n")-(ap$-"N"): goto 50500 

HB 50460 prinr'am or pm(a/p)?"; 

DK 50470 get ap$: if ap$="" goto 5(H70 

GP 50480 if ap$<>"a" and ap$<>" A'' and ap$<>"p" and ap$<>"P" 
goto 50470 

IK 50490 ap-0-(ap$="p")-(ap$="P") 

JB 505(K) hi=ht+i2''((ht=12) and (ap=0)) 

NC 50510 hi=ht-]2*((hl<12) and (ap=l)) 

AM 50520 ht$=str$(ht):hl$="0O"+right$(ht$,]en(hiS)-l) 

IF 50530 tt$=nght$(ht$,2)+righi$(mt5,2)+righl$(st$.2): tiS=a$ 

KH 5t)540 tl=0: if ht>]2 then ht=hi-12: tt-128 

LJ 50550 i:%=ht/iO: ti=tt+(16*tt%)+(ht-i0ni%) 

FP 50560 poke 56335.peek(56335) and 127 

HA 50570 poke 5633 l,tt 

PD 50580 tt%=mt/10:ti=(16*n%)+(mt-iO*ii%) 



IB 50590 poke 56330,tt 

AB 50600 lt%^sc/10: ttKi6*lt%)+(se-10*tt%) 

FE 50610pokc56329,tl 

AI 50620 poke 56328,0 

CO 50630 print: goto 50100 



Lisling 2: ''Create" 

CN 1000 rem ** this program will create a 

OJ 1010 rem *'* machine language program 

IH 1020 rem ** which modifies the irq 

JK 1030 rem ** routine to set li$=iod cia#l 

EI 1040: 

HG 1050 open 1 5 A 1 5: open8,8.U"0:new-irq": ck=0 

JK 1060 input#l5.e»e$,b,c: if e lhenclosel5: print e;e$;b;c:slop 

GB 1070 input '^starting address: ";s$ 

KC 1080s=val(s$):ifs<l gotol090 

EG 1090 def fnh(x)=im(\/256): dcf fnl(x)-x-256*ini(x/256) 

lO 1100prinl#8,chr$(fnl(s));:print#8.chr$(fnh(s)); 

PH 1110 if fnl(s+25)=255 then print#8xhr$(234)::s=s+i 

GA 1120 for x=l to5:reada:ck=ck+a:print#8.chr$(a);:ncx! 

EB 1 1 30 prini#8,chrS(fnl(s+25));:prim#8,chrS(fnh(s+25)); 

HB 1140 forx=l to 4: read a: ck=ck+a: print#8,chr$(a);: next 

KC 1150print#8,chr$(fnl(s+26));:prinl#8,chr$(fnh(s+26)); 

HE 1160print#8,chrS(169);chr$tfnl(s+27)); 

chr$(141);chr$(20);chr$(3); 
DC 1170 prini#8,chrS(l69);chr$(fnh(s+27)); 
AJ 1180 for x=l to66:reada: tk=ck+d: prinl#8.chr$(a);:next 
KG 1190print#8.chr$(fnl(s+112));:print#8,chr$(fnh(s+ll2)); 
AF 1200 for \=1 !o 3: read a: ck=ck+a: prinl#8,chr$(a)i:neM 
m 12l0prin[#8,chr$(fnl(s-fl37));:print#8,chT$(fnh(s+!37)); 
EG 1220 for x=l to 3: read a; ck=ck+a: pnnt«8xhr$(a)::rtext 
BK 1230prini#8,chrS[fnl(s+l62));:print#8,chr$(fnh(s+162)); 
NK 1240 for x-1 to 12: read a: ck=ck+a: prim#8,chr$(a);:next 
MI 1250print#Sxhr$(fnl(s+25))-print#8,chr$(fnh(s+25)); 
PN 1260for\=l to 75: read a: ck=^ck+a: print#8,chr$(a);:ncxt 
HG 1270close8xlosel5 
DJ 1280 if ck<>18314 then print"— error in data siaiements!— " 

end 
JJ 1290 prim "«'**irq module created*^ **^': end 
II 1300: 

KB 1310data 120, 173, 20, 3,141,173, 21, 3 
JD 1320datal41, Ul, 21, 3, 88, 96, 0, 
GO 1330data 165,251, 72,165,252, 72,173, 11 
DH 1340data220, 133.251, 173, 10,220,208, 57 
JC 1 350 data 1 73, 9, 220, 208, 52, 173, 8, 220 
DO 1360daia208, 47,165,251, 41, 15,133,252 
OG 1370daial65,251, 41, 16,240, 7, 24,169 
HK 1380 data 10,101,252,133,252,165,251, 16 
LH I390data 7, 24,169, 12,101,252,133,252 
MM I400datal64.252, 185, 133, 160, 185, 133, 161 
MJ 1410 data 185. 133, 162, 173, 8,220, 104, 133 
CJ U20data252, t04, 133,251, 108, 0, 3, 6 
AJ 1430data 9, 13, 16. 19, 23. 26, 29, 32 
GO 1440 data 36, 0, 42, 46, 49, 52, 56, 59 
KP 1450 data 62, 65, 69. 72, 75, 39, 0, 75 
LI 1460 data 151, 227, 47,122,198, 18, 94,169 
JA 1470data245, 65, 0,216, 36,112,188, 7 
JP ]480daia 83,159,235, 54,130,206,141, 
JA 1490data 192, 128, 64, 0,192.128, 64, 
DB 1500 data 192, 128, 64, 0,192.128. 64, 
NB 1510 data 192, I2S, 64. 0,192,128, 64, 
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rJstins3:"New-lRQ'' 



*******#■!■********** ***+*##*** 



* 



•I' 
# 
* 

* 

* 
* 
* 

* 
* 

* 



this routine is added lo the * 
normal irq lo reset the * 
system clock (li and li$) 
to ilie [ime-of-dav clock 
in eia#l. 



the tt/ti$ clock is subject 
to accutnulaled errors, 
especially during disk 
and tape access, the tod 
clock accuracy is 
niairHained by the power 
line frequency. 

this routine sets the 
tiAiS clock -to the 
lod clock on the tod 
hour (minutes and 
seconds all = zero). 

noel iiyman 8/S7 



* 
* 

* 

* 

* 

* 

* 
* 
* 
* 
* 
* 



* 

# 

Xc 

* 

* 
* 



#**■*■!■**■« ti **«******.;+.****:**#* #:!■ 



ti ^$aO 

tempi =$fb 
lemp2 = $fc 



;firsibytcof ti 

temporary storage, original value unchanged 

; temporary storage, original value unchanged 



skipten 



irqvec =$0314 ;address of irq vector 



* 
* 



hours 


= SdcOb 


;cia#l hours register 


minutes 


= SdcOa 


;cia #1 minutes register 


seconds 


= $dc09 


;cia # seconds register 


tenths 


= $dc08 


;cia#I tenths sec register 



* routine can he placed at any convenieni location. 

org ScOUO 

* get the current irq vector and store it in 

* 'holdirq.' place the vector to the added 

* code at the irq vector address, 
start sei 

Ida irqvec 

sta holdirq 

Ida irqvec+I 

sta holdirq+l 

Ida #<newirq 

sta irqvec 

Ida #>newirq 

sta irqvec+ 1 

cli 

rts 
holdirq heK 00,00 

:code added to irq routine starts here 
Tiewirq Ida tempi ;slorecurrenl values of 

;iempl and lemp2 on stack 

;so we can restore them in case 

;the interrupted application uses them 

;reading the hours register 

;halls the clock, we store 



skipap 



* 

* 
exit 



pha 

Ida temp2 

pha 

Ida hours 

sta tempi 



* 
table I 

tabled 

table3 



;the value in tempi, just 
;in case h's time to use it 
Ida minutes ;check for minutes = zero 
bne exit ;if not zero, not time to update 

)da seconds ;check for zero seconds 
bne exit ;and skip update if not zero 
Ida tenths ;check for zero tenths of a second 
bne exit ;and skip update of not zero 
;the update routine converts the 
;value in the hours register 
Ltrom bcd/am-pm format into 
;a binary number in the range 
;0-25, where or 12 equals !2am, 
;I=lam. 13=lpm, and 25=noon. 
;the converted number is used as an 
;index to a table to store the 
;proper values in the three bytes of ti 
Ida tempi ;hour& register value 

;mask out upper bed digit, am-pm 
;store lower hours digit 
;gcl hours value again 
;mask out all but the upper bed digit, 
;this can only be zero or one, 
beq skipten ;if zero, don't add iO totemp2 
clc 

;ifhighhours digit was one, 
;add 10 to tempi 



and #$0f 
sta temp2 
Ida tempi 
and #$10 



!da #$0a 
adc lemp2 
sta Iemp2 
Ida tempi 
bpl skipap 



;geE hours value again 
:if high bit clear 
:iime is am, skip the routine 
;[hai adds 12 for pm limes 

;add 12 to temp2 
;if lime is pm 



clc 

Ida #SOc 

adc lemp2 

sta temp2 

Idy temp2 ;pui index to table in y 

Ida tableUy ;get values from 

sta ti ; three tables 

Ida table2,y ;and store in ihe 

sta ti+1 ;three bytes 

Ida table3,y ;ofli 

sla ti+2 

; restart display, 

;resiore the previous values in 

;temp I and Iemp2, and jump 

;through the stored irq vector to 

;complete the irq routine. 
Ida tenths ;read tenths to restart display 
pla 

sta temp2 
pla 

sla tern pi 
jmp (holdirq) 

the following three tables hold the values normally 

foundin the three bytes of ti at the 'lop' of each hour, 

hexOa,03,06,09,Od,10,i3J7Ja,ld.20,24 

hex 00,2a,2e3 1 ,34,38,3b,3e,4 1 ,45,48,4b,27 

hex 00,4b,97,e3,2f,7a,c6,I2,5e,a9,f5,41 

hex 00,d8.24,70,bc,07,53.9f,eb,36,82,ce,8d 

hex 00,cO,80,40.00.cO,80,40,OU,cO,80,40 

hex 00,c0,80,40,00,c0,80,40,00,c0,80,40,00 
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Olsen's Raid 



An Update to the "Shiloh's Raid" Relative File Bug Fix 



Volume 7, Issue 4 of Transactor contained an article by 
David Shiloh called '^Shiloh's Raid" that claimed to elimi- 
nate the dreaded relative file bug: it showed under what cir- 
cumstances the bug occurred, and took extra precautions 
when writing to the file under those conditions. Since thai ar- 
ticle appeared, we heard from Helen Olsen, who ftiund a flaw 
in Shiloh 's explanation of when the bug occurs. Helen sent us 
several prograrns to illustrate her point, and after hearing 
from her, and again froni David Shiloh, we ihink it's lime lo 
clarify things a bit. 



Shiloh explained that the bug occurs under the following con- 
ditions - refer to the diagram below to illuminate the explana- 
tion: data is written to a relative file record, "spilling over" 
from one sector lo another. This is write number 1 in the dia- 
gram, spanning sectors A and B. Write number 2 then takes 
place, 10 a record residing wholly within the next contiguous 
sector - sector B, According to Shiloh, the bug is now waiting 
10 happen, and if a write (3) now occurs lo the next sector 
(C), the data is instead erroneously written Jo sector A, poten- 
tially spilhng into sector B as well. 



First, lef s back-track a little. A gene rally -known bug in the 
154i causes problems under rare conditions when writing to a 
relative file. The fix (also generally known) is easy - just po- 
sition the record pointer twice before writing a relative file 
record. The extra point (and some say a short delay as well) 
seems to eliminate the bug, so most experts advise to handle 
relative files in this way and eliminate the problem- David 
Shiloh took the extra step of finding under exactly what con- 
ditions the bug occurs, and applying the fix only under those 
conditions. The program he presented along with ihe article 
was supposed to prove thai the fix works by checking for er- 
rors in a long random-write test both with and without the 
*'Shiloh's Raid" routine in place. 



Shiloh's solution was to detect when this condition was about 
to occur and apply the standard fix, to posiiion the record 
pointer twice and pause before writing. The advantage to 
Shiloh's Raid is that the double-point need only be done on 
the rare occasions when the above circumstances occur, sav- 
ing time for typical relative file access. 

Enter Helen Olsen. Her main point was that the conditions 
that Shiloh sets for the bug to occur are too strict; only writes 
I and 3 (referring to the diagram again) need to take place to 
trigger the bug. She suggested that positioning an extra time 
(without the delay) after writing to a split record (1) is the 
best solution. 



Consecutive Sectors 



A 



B 



C 



Hiieiii«iuo]«*oiiu I Eoni i nnifl 



L 



1DUI»I e II IWKi II Q liHkl I II MilOOII 



1 



IMlMtOI IfllUlOOVE lUlMill Ul lUDll 



2 



3 



Write spans sec 
tors A and B 



Write contained 
within sector B 



Write to sector C 
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As it turns ou^ David Shiloh's explanation of when the bug 
occurs is too exacting, but the 'Shiloh\ Raid' program works 
properly, that is, it senses trouble and does the extra pointer 
posidoning even when only writes *r and ^3' occur. David 
Shiloh told us this, and shortly thereafter, Helen Olsen sent us 
a letter thai concurred. Here is part of that letter: 

*To sum up my position on Shiloh's Raid: His description 
of the cause of the bug is wrong - his 1, 2, 3 sequence, 
with 2 setting up the bug is wrong- The bug happens with 
I followed by 3. / was wrong about his fix not working be- 
cause T assumed that it was applied only in response to the 
1, 2, 3 sequence- He may not realize it, but his subroutine 
repeats the positioning command often outside that se- 
quence, including the 1,3 sequence, which may be why 
he's unaware that it causes the bug, also... His fix is also 
applied when it is not necessary... In random use of a rela- 
tive fde, my fix, which repeats the position command after 
every write to a split record, will surely be used unneces- 
sarily more often than Shiloh's fix, but since I don't know 
the cause of the bug (nor does he), I feel safer using it.*' 

Helen presented programs along with her letters thai proved 
her point, showing diat only writes I and 3 were required to 
cause the bug, and showing that her fix worked. 

So where does that leave us at the Transactor? Well, with a 
certain amount of egg on our face, to begin with, for not veri- 
fying tha! Shiloh's program was doing exactly what the text 
of the article said it was supposed to do. It may be even worse 
than that {for us), because the version of Shiloh's Raid that 
was printed was much improved cosmetically from the origi- 
nal - expanding from nineteen lines of lighUy packed, un- 
readable code, to a page and a half of commented BASIC that 
had a chance of being understood. Perhaps something was 
lost in the translation that accounted for the application of the 
extra point-and-wait when it was unnecessary, i.e. outside of 
the 'M, 2, 3" and *'l, 3'* conditions. In any case, we perhaps 
got carried away a !ad in presenting the last word on the rela- 
tive file hug, and we're glad that Flelcn brought us down to 
reality, though '^glad^' may not be the most appropriate word 
all around. 

So, to summarize: The original Shiloh's Raid program was 

correct, in that it prevented the bug from occurring, and only 

applied the f\\ on a very small percentage of writes to ihe file, 

Shiloh's explanation of when the bug occurs doesn't cover all 

situations, so is only partially correct. Helen Olsen is right 

about the flaw in Shiloh's explanation, and her solution also 

seems to stop the bug from occurring. There is still no proof 

that there are no other ways in which the bug can occur, but it 

seems that you are safe if you use Shiloh^s Raid, Olsen's fix, 

or if you just position twice before every write to a relative 
file. 

Thus closes the fde on Shiloh's Raid; as Helen Olsen ended 
her letter afti^r announcing that it was to be her last on the 
subject, *'Did I hear a heartfelt ^amen'?" 



SUPER 81 UTILITIES 



Super 81 UliNiies is a complete utHities package (or ihe 
Commoaore 1581 Disk Drive and C128 computer. Copy whole 
djaks or jndivnJual riles from 15J1 or 1571 format lo 1581 
parlilions. Backup 1581 disks. Coniains 1581 Disk Editor. 
Drive Monitor RAM Writer, CP/M Utilities and more for only 
£39.95, 



1541/1571 DRIVE ALIGNMENT 



1541/1571 Drive Alignment reporls the alignmenl condaion of 
the tfisk drive as you perform adjustmenis. Incfude^ features 
for speed adjustment and stop adjustment. Includes program 
disk, calibration disk and instruction manual. Works on C64 
C12B, SX64, 1541, 1571. Only S34.95. 

exceUenl efficient program that can help you save both 
money and downtime Compute! s Gajette, Dec , 1967. 



GALACTIC FRONTIER 



Excilmg space exploration game fro the C64. Search lor life 
forms among the 200 billion stars m our galaxy. Scientifically 
accurate. Awesome graph^cs^ For the serious student of 

astronomy or the causal explorer who wants to boldly go 
where no man has gone before Only J29,95. 



MONDAY MORNING MANAGER 



Staiislfccs-based baseball game. Includes 64 afl-time great 
major league teams. Realisilc strategy Great sound S 
graphics! Apple li systems $44.95, C-64 S Atari systems 
-S39.9S. 

Order with check, money orde^'VISA, MasterCard, COD Free 
shipping & handring on US, Canadian. APO, FPO orders. COO 
& Foreign orders add $4 00. Order from: 

Free Spirit Software, Inc. 

905 W, Hillgrove, Suite 6 
LaGrango, IL 60525 

(313) 352 7323 





Announcing a unique new product for the C128 

Jugg'ler- 128 

By M. Garamszeghy 



This program provides read, write and for- 
matting support for more than 130 types of 
MFM CP/M disks on the C128 in CP/M mode 
wilh a 1570, 1571, or 1581 disk drive. 

It is compatible with all current versions of 
C128 CP/M and all C128 hardware configura- 
tions including the 128-D. All normal CP/M file 
access commands can be used with the extra 
disk types. 

Jugg'ler is available by mail order for $19.95 
Canadian or $17,95 US from Transactor, Order 
from the card at the centre of this magazine. 
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Three Movers for the C64 



Relocatable utilities to save and restore programs, screens and colour data 



hy Richarcl Curcio 

Many video effects are possible on the C64 by quickly mov- 
ing large blocks of memory. The routines presented here arc 
designed to do just that. These routines are relocatable; sim- 
ply change the variable SA in the associated Basic loader to 
the desired address. The FOR-NEXT loop value in each load- 
er indicates the length of the ML. Although relocatable code 
is often longer than non- re locating, this can be justified by the 
ability to place it wherever there is enough room, widiout 
modification. 

Move -PI us 

The first routine is not limited lo moving video or graphic in- 
formation. It can move any chunk of memory to any location. 
This routine has the ability lo retrieve data stored in RAM 
■^under'' the BASIC or Kemal ROMs. The syntax for calling 
the routine is: 

sys MOVE, source address, destination address^ 
number of bytes, mask 

where MOVE is the start address of the routine (51200 in the 
version listed). The last value, mask, must be in the range to 
255. If mask is greater than zero, interrupts are disabled and 
BASIC and the Kemal ROMs are switched out, allowing the 
RAM beneath them to be accessed. The memory configura- 
tion in effect when the routine was called is restored upon re- 
turn. Thus, if a modified BASIC in RAM is in effect, the sys- 
tem stays that way. The RAM under the Kemal would still be 
available for storage in that case. 

To copy the BASIC ROM into underlying RAM: 

sys MOVE, 40960, 40960, 8 192, : poke 1, 54 

Note fhat mask value zero is used so that ROM may be read. 
Memory writes to addresses in ROM always ''fall through" 
to the RAM beneath. 

This routine can be used to fil! memory by poking the first 
address with the desired value and moving up by one loca- 
tion. 



...will change ah characters on the screen to black by filling 
color memory with zeroes. 

Character ROM is not affected by the mask value. To copy 
character ROM into RAM requires almost as much code as 
doing it in BASIC. It happens several hundred times faster, 
(hough: 

100 poke 56334, peek(56334) and 254 

: rem disable interrupts 
nOpoke l,peek(l)and251 

: rem switch in character rom 
120 sys MOVE, 53248, 12288, 2048, 

: rem move upper case/graphics character set to ram 
130 poke i,peek(l)or4 

: rem switch out character rom 
140 poke 56334, peek(56334) or 1 

: rem enable interrupts 

Further pokes are necessary to protect the new character set 
from Basic variables and lo tell the VIC chip where to find 
the characters. Consult the Programmer's Reference Guide or 
other sources for more information on C-64 graphics. 

If the number of bytes to be moved causes the destination ad- 
dress to ^'roll over" from $FFFF to $0000, the remaining 
bytes are not moved and the routine returns to BASIC. The 
value 255 is left in location 782 (SYREG) to indicate that the 
move was incomplete. Caution should be used when specify- 
ing addresses below 828 as destinations, 

Color,Move 

This routine will save the contents of colour memory to one 
of sixteen sections ^'undcr'* the Kemal ROM. Because colour 
RAM consists of 1024 nybbles, each color map is compacted 
into 512 bytes. 

To save a color map; 

sys COLOR, section # 

...where COLOR is the address of the routine (51320 in the 
listed version) and section # is to 15. 



poke 55296, 0:svs MOVE, 55296, 55297, 999, 



To recall a particular color map: 
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T 



sysCOLOR+4, section # 






To store colors under the BASIC ROM, ^poke COL- 
OR+19,160\ To change back to the Kemal, ^poke COL- 
OR+!9,224'- This makes a total of 32 colour maps a%'aiiable. 
If a section were to roll over to zero page (due to poking too 
large a value inio COLOR+19), the routine stops with 
'?illega) quantity' before any transfer takes place. 

It is also possible lo reduce the number of storage sections. 
'Poke COLOR+12,8' would limit storage to sections zero 
through seven. 

Video.Move 

This routine will save screen and color memory to one of five 
sections under the Kemal. All 1024 bytes of the screen are 
saved, including the sixteen unused bytes and the eight bytes 
of sprite data pointers. As in *Color.Move% colour ram is 
compacted into 512 bytes for a total of 1536 bytes per sec- 
tion. 



screen will have characters of different colors. This warning 
also applies when using section #14 under the Kemal with 
^ColonMove'. 

As with 'Color.Move', it is possible to change the storage 
area. *Poke VIDEO+16,160' will change the storage area to 
RAM under the BASIC ROM, Toke VIDEO+16,224^ to 
store under the Kernal. Like 'Color.Move', the routine stops 
with *?illegal quantity* if a section will roll over to zero page. 

It is also possible to copy from any given screen location. Say 
you have abii-map at $6000 with its color matrix at $5CO0. If 
for some reason you want to store the bit-map colors while 
maintaining text mode, poke the high byte of the bit-map 
colour matrix into location 648, 

200 TX = peek(648): rem current text screen 

210 VM = 92: rem high byte of bit-map colors at $5C00 

220 poke 648, VM: sys VIDEO, section #, 

: rem use loc. 648 as org 
230 poke 648, TX: rem restore nomiai text 



To save screen and color: 

sys VIDEO, section, screen org 

where VIDEO is the address where the routine is located 
(51456) and section is to 4. The last parameter, screen org, 
detennines where the screen, which is also called the video 
m^ix, resides- If screen org is zero, the routine uses the con- 
tents of location 648 to determine where the screen is located. 
The operating system uses this location to determine where 
the screen is for text output- If screen org is greater than zero, 
the routine uses the contents of the VlC-11 chip and data port 
A of CIA 2 to determine the video matrix location, which is 
the screen currently displayed. When the C-64 is in high- 
resolution mode, each byte of screen memory contains die 
background and foreground colors for the hi-res bit map- The 
value in location 648 in this case is irrelevant, and the value 
the VIC chip uses may be completely different. (Color ram is 
also irrelevant unless the C-64 is in multi-color hi-res-) In 
other words» an org value greater than zero uses the currently 
displayed video matrix- A value of zero uses the text screen, 
which may or may not be visible. 

To recover screen and color: 

sys VIDEO+4, section, screen org 

BASIC and Kemal ROMs are switched out during both stor- 
age and retncvaL 

Since 'Video-Move' stores information under the Kemal, sec- 
tion #4 should be used with caution due to the writing to 
RAM that takes place when RUN/STOP-RESTORE is 
pressed- To demonstrate, hst something lo screen in one color 
and save it to section 4. Press RUN/STOP-RESTORE to clear 
the screen and then recall section 4. The lower portion of the 



This is risky- If the program should stop with an error before 
location 648 is restored to its previous contents, the machine 
will appear to have crashed- In reality, the system is printing 
to the bit-map colour matrix but the VIC chip is still display- 
ing the old text screen. 

Simple Windows 

If you need a simple-minded Window utility, 'Video.Move' 
combined with a PRINT "at" routine (that allows you to print 
to any given screen position) can do a good simulation- Just 
store the current text and colors, use PRINT® or some other 
means to display a box with the desired message, then recall 
the screen contents to make the "window" disappear. Or store 
up to five screens for overlapping windows. If it is not neces- 
sary to store the colours, 'Move.Plus^ can store eight screens 
under ROM. 

One factor comphcates this pseudo-window application. 
When printing to the screen, the system keeps track of which 
screen lines wrap around to the line below. This information 
is stored in 25 kKations in zero page. When the screen is 
POKEd, which is what ^Video-Move' or 'Move.PIus' do, this 
link table is not updated. A recalled screen would have the 
links of the previous screen- This may or may not be a prob- 
lem, depending on what you do with the recalled screen. 
PRINTS may not come out as expected. INPUT from the 
screen may be affected as well. To get around this problem. 
Move. Plus can be used to store the contents of the link table 
in some safe location. 

sys MOVE, 217, destination, 25, 

To recall the screen links, 217 becomes the destination and 
the proper mask value should be used if the links were stored 
imder ROM, Your program would have to keep track of 
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which slored 


screen matches a stored link table. 


FD 


14(H) 


; calculate end address 










IP 


1410 


1 








Other riijp'i 




FN 


1420 


eale 


cic 




; add #byies to desi. 


^■— ^ » ^ ■ ^ 






GB 


1430 




Ida 


nbyies 










BB 


1440 




adc 


dest 




* Video, Move 


j' and 'Color.Move' can create interesting effects 


IG 


1450 




sta 


nbytes 




in lo 


w-res an 


id even achieve pseudo animation by storing and 


GP 


1460 




Ida 


nbyles+1 




retrieving a 


number of alternate screens and/or colors. 


LD 


1470 




adc 


desi+1 




* Video. Move 
the screen'^ 


' wilJ change the sprite data pointers along with 
; contents. If enough RAM is available. 


LK 
FF 
DJ 


1480 
1490 
1500 


start 


sia 
Idy 
Ida 


nbyies+ 1 

#$00 

(srce),y 


; $14/15= dest.cnd+l 


'Mo^ 


^e.Plus^ 


can store and retrieve a number of bit-maps. 


FO 


1510 




sta 


(dest),y 




'Video. Move 


' will store Ixnh color maps of hi-res muJli-color 


MJ 


1520 


bumpl 


inc 


srce 




graphics, *Move.Plus' can also redefine custom characters or 


BM 


1530 




bne 


bump2 




' sprites for another form of animation. 

1 f 


MG 
GM 


1540 
1550 


bump2 


inc 
inc 


srce+1 
dest 




1 






CK 


1560 




bne 


comp 




One 


of the 


most useful applications for 'Move.Plus' is lo 


NM 


1570 




inc 


dest+1 




store 


a number of machine language routines that need to be 


JD 


1580 




beq roUo 


; if dest rolls over 


at the same ; 


address. Load a program to its designated loca- 


JL 


1590 


eomp 


Ida 


dest+l 




tion» 


then use 'Move.Plus' to put if someplace safe. Repeat 


HM 
GC 


1600 
1610 




cnii: 

brip 


mbytcs+l 
siMrt 




for other programs, then retrieve each routine as needed. 


DN 


1620 




Ida 


dest 




{Don 


'i try this with "wedges'', though.) ^Move.Plus' can 


DC 


1630 




cmp n bytes 




even move itself and because of its relocatability it will func- 


EE 


1640 




bne 


start 




tion at iis new IcKation, 


KD 


1650 


done 


IX a 




; was mask = 








LD 


1660 




beq 


exit 


; yeah 








HH 


1670 




pla 




; restore mem. config. 








NE 


1680 




sta 


$01 




Listing 1: Assembler source code for 'Move.Plus' 


IC 


1690 




cli 












KJ 


1700 


exit 


rls 






JO 
PH 


1000 
1010 ■ 


*= $c800 


EC 

4 T^ 


1710 

1 "-^-^ H K 


* 


■i 




1 -^ ^ ^ ■ 


111 


J U_JV/ . 




AF 


1720 


rol o 


dey 




; leave 255 m 


GI 


1040 ; 




NC 


1730 




bne done 


; location 782 


KA 


1050 1 


Prmnum = $ad8a 












T 


PA 


1060 I 


:hkcom - Saefc 


Listinf> 2: Toior.Move' 






FN 


1070 j 


^eiadr = ShlH 














ED 


1080 ! 


jrce = $c3 


OB 


1000 




*^ 


$c878 




JM 


1090 ] 


ibytcs = $14 


ON 


1030 


;— color.move — 




AF 


1100 ( 


Jtsi = $c\ 


GI 


1040 


^ 








MM 


1110 : 


1 X 

1 


EC 


1050 


temp 


- 


$e3 




IM 


1120 ; 


, get and store source and destination 


KJ 


1060 










AG 


1130 ; 




KA 


1070 


7 


Idy 


#$ff 


; flag = store 


GJ 


1140 1 


[legin jsr chkcom 


HD 


1080 




bne 


setup 


' l_r 


LE 


1150 


jsr frmnum 


CH 


1090 




idy 


#$00 


; fiag = recover 


EJ 

^ ^ "_ 


1160 


jsr getadr 


JD 


1100 


setup 


Sty 


temp 


; ^ave entry 


MG 


1170 


sty srce 


NP 


nio 




jsr 


$b7fl 


; section # in ,x 


CC 


1180 


sia sr;:e+I 


OC 


1120 




cpx 


#$10 


; ctik. range 0-1 5 


EC 


1190 


jsr chkcom 


GE 


1130 




bcs 


qtyl 


; >$0f illegal 


NH 


1200 


jsr fminum 


IC 


1140 




txa 


F ** 


^m* 


GM 


1210 


jsr getadr 


MJ 


1150 




asl 




; times 2 


BO 


1220 


Sly dest 


OP 


1160 




clc 




r 


HJ 


1230 


sta dest+1 


GK 


1170 




adc 


#ScO 


; use aO for bas,rom 


OF 


1240 


jsr chkcom 


MG 


1180 




bcs 


qtyl 


; rolled over, no room 


IF 


1 250 : 




BH 


1190 




lax 




— 


MG 


1260 


; get number of bytes and mask value 


MI 


1200 




inx 






MG 


1270 




PP 


1210 




beq qtyl 


; will roll over, no room 


AP 


1280 


jsr $b7eb ; fwo bytes in $14/15, one 


DE 


1220 




Idx 


#$00 




byte ; 


in \ 




PC 


1230 




sia 


S25 


; inii. addresses 


AI 


1290 




IP 


1240 




stx 


S22 


J 


FF 


BOO 


; $14-35 has number of bytes 


lA 


1250 




six 


S24 




EJ 


1310 




AB 


1260 




Idx 


#$fe 


; counter 


MN 


1320 


txa 


NN 


1270 




Idy temp 


; which way 


JH 


1330 


beq calc ; if mask = 


OE 


1280 




beq 


recover 




FN 


1340 


sei 


ME 


1290 


savcol 


iny 




; #$ff+l 


PM 


1350 


Ida $01 ; get mem. config. 


EJ 


1300 




Ida 


#$dS 


; hb of color ram 


MM 


1360 


pha 


FN 


1310 




sta 


S23 


; $22-23 = source 


KB 


1370 


and #Sfd ; mask basic and kernel 


JN 


1320 


coll 


Ida 


($22).y 


7 ' 

; eetanybble 


BC 


1380 


sta SOI 


NN 


1330 




asl 


w 


■_r V 


EO 


1390 


* 
1 
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i 



1 



HO 


1340 




as! 


1 


OM 


1190 


bcs 


qtyl 


; no good 


1 BP 


1350 




asl 


f- 


GD 


1200 


bne 


again 


^m-^ 


CE 


1360 




asl 


; move to hi nybble 


PC 


1210 cont 


tay 




; save result 


DJ 


1370 




sta lemp 


; save it 


PK 


1220 


adc #$05 


; cnoueh room 


EN 


1380 




inc $23 


; next pg. of col. mem. 


MA 


1230 


bcc 


ok 


L_^ 


LE 


1390 




Ida ($22),y 


; gel it 


OE 


1240 ; 








LI 


14O0 




and #SOf 




BL 


1250 qtyl 


jmf 


' $b248 


; illegal quantity 


PK 


14 




ora lemp 


; combine 'em 


CG 


1260 ; 






vr M ^ 


JD 


1420 




dec $23 


; prepare for next 


BB 


1270 ok 


sty 


$15 


; hi-bylof sect. # 


OJ 


1430 




sla ($24),y 




EM 


1280 


Ida 


S0288 


; hi-byt of screen loc. 


AI 


1440 




iny 




ML 


1290 


sta 


$af 


; inil- addresses 


FL 


1450 




bne coll 




HD 


1300 


Ida 


#$00 




AJ 


1460 




inx 




JD 


1310 


sta 


$ae 




JG 


1470 




beq exit 


; enough times 


AP 


1320 


Sla 


$14 




HH 


1480 




inc $25 




AD 


1330 


jsr 


$b7n 


; which screen org. 


LH 


1490 


# 


inc $23 




AP 


1340 


txa 




%aJ 


FI 


1500 




inc $23 




KA 


1350 


beq 


movit 


; = text screen 


CM 


1510 




bne coll 


; branch always 


PJ 


1360 


da 


$ddO0 


; viij,bank fromcia2 


GG 


T520 


9 






FC 


1370 


ror 




; biis & 1 


PM 


1530 


qtyi 


jmp $b248 


; illegal quant. 


IM 


13H0 


ror 




; into 6 & 7 


KH 


1540 


4 






CC 


1390 


ror 






HF 


1550 


recover sei 




BA 


1400 


eor 


#$ff 


; invert 


GN 


1560 




Ida $01 


; geiconfig- 


PF 


1410 


and #$cO 


; zero others 


OJ 


1570 




pha 




DE 


1420 


sta 


temp+T 




MF 


1580 




and #$fd 


; mask out roms 


DN 


1430 


Ida 


$dOI8 


; vid.matrix from vic-ii 


DP 


1590 




sta $01 




EF 


1440 


ror 






OA 


1600 




Ida #$d9 


: pg2 of color ram 


OF 


1450 


ror 






BB 


1610 




sra $23 


■ 


EM 


1460 


and #$3c 




KA 


1620 


C012 


Ida (S24),y 


; get a byte 


NH 


1470 


ora 


temp+1 


; combine 


LM 


1630 




sta ($22),y 


; ignore hi-nybhle 


GO 


1480 


sta 


$af 




BE 


1640 




Isr 




IP 


1 490 movit 


sei 






LE 


1650 




Isr 




LF 


1500 


Ida 


$01 




FF 


1660 




Isr 




CC 


1510 


pha 






MO 


1670 




Isr 


; move to lo nyb 


AC 


1520 


and #$fd 


; maskotitroms 


EB 


1680 




dec $23 




HL 


1530 


sta 


$01 




MB 


1690 




sla ($22)j 


; store it 


d: 


1540 


Idx 


#$00 




NE 


1700 




inc $23 




LN 


1550 


Idy 


temp 




DB 


1710 




iny 


; pointer 


GO 


1560 


beq 


recover 




HM 


1720 




bne col2 




MI 


1570 


iny 




;#$fl+l-00 


OJ 


1730 




inx 




Gl 


I5m store 


Ida 


($ae),y 




EA 


1740 




beq rdone 




LD 


1590 


sta 


($14).y 




Fl 


1 750 




inc $25 




AC 


1600 


iny 


^ » 




JI 


1760 




inc $23 




BH 


1610 


bne 


Store 




DJ 


1770 




inc $23 




OB 


1620 


inc 


S35 


; hb dest. 


DA 


1780 




bne col2 




GP 


1630 


inc 


$af 


; hb src. 


GL 


790 


rdone 


pa 


; getconfig 


EE 


1640 


inx 






DK 


800 




sia $01 


; and restore it 


DB 


1650 


cpx 


#504 




AK 


1810 




cli 


, 


KH 


1660 


bcc 


store 




CB 


1820 


exif 


rts 




JF 
OK 


1670 color 
1680 


Ida 
Hta 


#$d8 
$af 


; hb of color ram 


Listing 3: 'Vidco.Move', 




EM 


1690 coll 


Ida 


($ae),y 


; get a nybble 












PE 


700 


asl 




^-~ w 


LO 


1000 


* 


= Sc900 




JF 


1710 


asl 






IK 


1030 


; video, move 




DG 


1720 


asl 






Gl 


1040 








EL 


1730 


asl 




; move to hi nybble 


EC 


1050 


lemp 


^ $c3 




FA 


1740 


sta 


temp 


; save it 


KJ 


1060 


y 






GN 


1750 


inc 


$af 




PB 


1070 




Idy #$ff 


; here to store 


LB 


760 


Ida 


($ae),y 




HD 


1080 




bne setup 




NP 


1770 


and #$0f ' 




HI 


090 




Idy #500 


; here lo recover 


GD 


1780 


ora 


temp 




DK 


1100 


.setup 


sty temp 




JN 


1790 


dec 


Saf 




PO 


IIIO 




jsr $b7fl 


; one byte inx 


NA 


1800 


sia 


($14),y 




NC 


120 




cpx #$05 


; section 0-4 


CP 


1810 


iny 






LM 


U30 




bcs qtyl 




HC 


1820 


bne 


coll 




NL 


1140 




Ida #$eO 


;usc#$a0for bas.rom 


CA 


1830 


inx 






GP 


1150 


again 


dtx 




JN 


1840 


cpx 


#$06 




PJ 


1160 




bmi com 


; no addition 


GA 


1850 


beq 


done 




lA 


1170 




clc 




BP 


1860 


inc 


S15 




JM 


1180 




adc #$06 




OE 


1870 


inc 


Saf 
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IF 


1880 


NG 


1890 


CO 


1900 


CO 


1910 


JP 


1920 


KG 


1930 


NM 


1940 


DO 


1950 


FM 


1960 


OI 


1970 


NF 


1980 


GN 


1990 


KJ 


2000 


IP 


2010 


HJ 


2020 


EN 


203Cf 


BN 


2040 


LN 


2050 


FO 


2060 


MH 


2070 


LP 


2080 


FC 


2090 


ED 


2100 


DK 


2110 


HF 


2120 


OC 


2130 


JP 


2140 


CD 


2150 


NB 


2160 


KH 


2170 


EI 


2180 


NJ 


2190 


OA 


2200 


BF 


2210 


HE 


2220 


EB 


2230 


JP 


2240 



inc $af 
bne coll 



reccol 



coI2 



recover Ida 
sia 
iny 
bne 
inc 
inc 
inx 
cpx 
bcc 
Ida 
sia 
Ida 
sla 
Isr 
Isr 
Isr 
Isr 
dec 
sta 
inc 
iny 
bne 
inx 
cpx 
beq 
inc 
inc 
inc 
bne 



(S^4).y 
($ae).y 

recover 

$15 

Saf 

#S04 

recover 

#$d9 

$af 

($i4),y 

($ac),y 



; hb src. 
; hb dest- 



; pg2 of color ram 

; get a byle 

; ignore hi-nybble 



$af 

($ae),y 

$af 

col2 

#$06 

done 

$15 

Saf 

Saf 

col2 



; move lo lo nyb 
; store it 
; pointer 

; enough times 



done 



endrec 



pla 

sia SOI 

cli 

ns 



; get con fig 
; and restore it 



Listing 4: 'Muve.Plus' in BASIC loader form. Change the value 
of ^saMn line 110 to change the location of the routine. 

FE 100 rem move,plus/c64 

GA 1 10 sa=5120a:rem sian address 

HN 120ek=0 

OE 130 for m^O to 99:read d 

PI 140 poke sa+m,d 

KO 150 ck=ck+d: next 

AC 160 ifck<>13877 then prinf'data error!": end 

KK 170 prim'move.plus ins tailed" :pr in t sa '^lo" sa+lIO: print 

FE 180 print'to use:":print"sys" sa ",soiirce.desi,# of bytei,mask" 

Bl 1000 data 32,253,174, 32,138,173, 32,247 

BD 1010datal83, 132, 195, 133, 196, 32,253,174 

DD i020data 32,138,173, 32.247,183,132,193 

BF 1030daial33, 194, 32,253,174, 32,235,183 

JC 1040datal38,240, 8,120,165, 1, 72, 41 

OB 1050 data 253, 133, 1, 24,165, 20,101,193 

IH IO60datal33, 20,165, 21,101,194,133, 21 

LD 1070 data 160, 0,177,195, 145, 193,230, 195 

JB 1080 data 208, 2, 230, 196, 230, 193, 208, 4 

OL 1090 data 230, 194,240, 20,165,194,197, 21 

IH 1100 data 208, 232, 165, 193, 197, 20,208,226 

DJ 1110data]38,240, 4.104,133, 1, 88, 96 

ML I120datal36,208,245, 

Listing 5: BASIC loader for ^Color.Move\ 

NK 100 rem color mover 

BB no sa=51320; rem start address 

HN 120ck=0 



GF 130 for m-0 to 127: read d 

PI 140 poke sa4-m,d 

KO 150 ck=ck4-d: next 

HB 160 if ckol5S90 then prin["data error!": end 

OB 1 70 prinf'color mover installed" 

:print sa "to" sa+ 1 27: print 

BB 180 print"lo store colors:" 

:print"sys" sa ", section # (0-15)": print 

KN 190 prim"to retrieve cotors:" 

: print"sys" sa+4 ",iieciion # (0-15)" 

GO 2000data 160,255,208, 2, 160, 0, 132. 195 

Dl lOlOdatd 32,241,183,224, 16,176, 64,138 

BD 2020 data 10, 24,105.224,176, ,57,170,232 

FO 2030data240, 53,162, 0,133, 37,134, 34 

EH 2040dalal34, 36,162,254,164,195,240, 42 

PJ 2050daia200, 169,216, 133, 35,177, 34. 10 

CP 2060daia 10, 10, 10.133,195,230, 35,177 

01 2070data 34, 41, 15. 5,195,198, 35,145 

GF 2080 data 36,200,208,233,232,240, 55,230 

IE 2090 data 37,230, 35,230, 35,208,222, 76 

FH aiOOdata 72,178,120,165, 1, 72. 41,253 

CE 2nOdatal33, 1,169,217,1,33, 35,177, 36 

HN 2l20datal45, 34, 74, 74, 74, 74,198, 35 

IF 2130 data 145, 34,230, 35,200,208,239,232 

ED 2140 data 240, 8,230, 37,230, 35,230, 35 

KH 2150 data 208, 228, 104, 133, 1, 88, 96. 



Listing 6: BASIC loader for ^Video.Move', 

JK 100 rem video mover 

GC 110 sa=51456; rem start address 

HN 120ck=0 

NE 1 30 for m=0 to 203: read d 

PI 140 poke sa+m.d 

KO 150ck=ck+d:nexi 

MC 160 if ck<>28l29 then print"data error!": end 

BC 170 prim'Video mover installed" 

: print sa "to" sa+203; prim 

AJ 180 print"to store video:" 

AP 190 prim"sys" sa ", section # (0-4), screen org": print 

CM 200 print "lo retrieve video;" 

PM 210 print'sys" sa-nl ",fiection # (0-4), screen org" 

OM 3000 data 160, 255, 208, 2, 160, 0, 132, 195 

NA ,3010 data 32,241,183,224, 5,176, 17,169 

NP 3020 data 224, 202. 48, 7, 24,105, 6,176 

BP 3030data 7,208,246, 168, 105, 5, 144, 3 

DM 3040 data 76, 72,178,132, 21,173,136, 2 

PE 3050 data 133, 175, 169, 0, 133, 174, 133, 20 

BD 3060data 32,241,183,138,240, 23,173, 

CB 3070data221, 106, 106, 106, 73,255, 41,192 

AH 3080 data 1,33, 196, 173, 24,208,106,106, 41 

BN 3090daia 60, 5, 196, 133, 175, 120. 165, 1 

CC 3lO0data 72, 41,253,133, 1,162, 0,164 

JK 3110data 195,240, 57,200,177,174,145, 20 

GB 3120 data 200. 208, 249, 230, 21, 230, 175, 232 

BD 3130data224, 4, 144,240, 169,216, 133, 175 

LF 3140 data 177, 174, 10, 10, 10, 10,133,195 

JK 3150dala23O, 175, 177, 174, 41, 15, 5,195 

NG 3160 data 198, 175, 145, 20,200,208,233,232 

FG 3l70data224, 6,240, 58,230, 21,230,175 

JH 3180 data 230, 175,208,220, 177, 20, 145, 174 

MF 3t90data200,208,249,230, 21,230, 175,232 

KH 3200 data 224, 4, 144,240, 169,217, 133, 175 

LM 3210daial77, 20,145,174, 74, 74, 74, 74 

KN 3220 data 198, 175, 145, 174,230, 175,200,208 

NG 3230 data 239, 232, 224, 6,240, 8,230, 21 

NL 3240 data 230, 175,230, 175,208,226, 104, 133 

JC 3250 data 1, 88, 96, 
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News BRK 



--h 



r 



J 



IVansactor News 
Submitting News BRK Press Releases 

If you have a press release you would like to submit for the 
News BRK column, make sure that the computer or device for 
which the product is intended is prominently noted. We re- 
ceive hundreds of press releases for each issue and ones 
whose intended readership is not clear must unfortunately go 
straight into !he trash bin, h should also be mentioned here 
that we only print product releases which are in some way ap- 
plicable to Commodore equipment- News of events such as 
computer shows should be received at least 6 months in ad- 
vance. The News BRK column is compiled solely from press 
releases and is intended only to disseminate infonnation; we 
have not necessarily tested the products mentioned, items for 
publication should be sent to Moya Drunimond along with 
any queries about advertising, ads themselves and editorial 
queries. 



Demand for T-Shirts Outstrips Supply 

We apologize to all tliose readers who sent in for T-Sbirts and 
whom we have had to disappoint. Demand was such that our 
initial supply was sold out within a week and we are having 
trouble finding another supplier. Most of you should have re- 
ceived a letter from our new Customer Service Assisiant. Re- 
nanne Turner, offering a refund in the case of T-Shirts which 
were paid for in advance, or a Potpourri or TransBASIC 11 
disk for subscribers who were entitled to a freebie for order- 
ing both the Transaiior Magazine and Disk ar the same time. 

We have had a similar problem with the G-Link IEEE inter- 
face. However, we now have a fresh supply and are shipping 
these again. If you are one of the customers who has been 
waiting patiently, please bear with us just a little longer. 



Subscription Switch 

Remember that if you wish to switch your subscription to 
Transactor for the Arnica there is no charge. However, there 
does seem to have been some confusion: you can only switch 
the number of issues of Tratisacior Classic to which you are 
still entitled. TPUG subscribers please remember that your 
subscription is with TPUG, not directly with Transactor, and 
we are therefore unable to switch issues due to you from 
them. Please be sure to put your name and ZIP or Postal Code 
as well as your subscriber number on your order card. 



The 20/20 Deal 

,,.is still in effect: order 20 subscriptions to the mag or disk. 
20 back issues, 20 disks etc., and get a 20% discount. (Offer 
applies to regular prices and cannot be combined with other 
specials,) 



No Longer Available 

As mentioned in the last issue, the 1541 Upgrade ROM Kit is 
now discontinued. Please see Vol-7 Issue 2 for complete in- 
structions on obtaining a set; disk #13 contains the ROM im- 
age youTl need to bum your own EPROMS. However, we're 
reasonably sure that the ROM image is compatible with the 
1541 only. 1541C owners will need to creaie an image of 
their ROM set, then make the changes described in V7 12, but 
with minor adjustments to accommodate for what are more 
than likely simple address changes. We are still waiting for an 
update article from someone who has successfully done this! 

'Moving Pictures' is also out of stock and no longer available 
from Transactor If you have ordered a copy, you may ask ei- 
ther for a refund or have a credit issued against further orders 
from Transactor Publishing - Renanne will be in touch with 
you. Moving Pictures is now being distributed by CDA, with 
new packaging and manual. Contact CDA at; PO. Box 1052, 
Yreka, CA 96097. Phone (916) 842-3431. 



New Look For Customer Service 

Jennifer has moved on to new pastures and we now have Re- 
nanne Tumer doing her utmost to create order from chaos in 
the field of subscriptions and orders, ll is a huge job and 
growing ever more complex now that w^e have two magazines 
and both are expanding rapidly. Renanne is working miracles 
and on Mondays, Wednesdays and Fridays will be delighted 
to resolve your queries. On Tuesdays and Thursdays, howev- 
er, she has to have time to keep her database and mail order 
depanmenis up to date and. therefore, the phones will be an- 
swered by a machine. We think you will find that from now 
on delays and mistakes will be kepi to a minimum and we 
hope you will appreciate the new system. 



Transactor Mail Order 

ll is perhaps worth mentioning that items on order cards in 
back issues of the Transactor Eire not necessarily currently 
available; if you are unsure, please call Renanne before send- 
ing in your order. To be certain, place orders from the card in 
the most recent issue. 

Prices for all products are listed on the order card in the cen- 
tre of the magazine. Subscribers: you can use the address la- 
bel from the bag holding your magazine and just stick it on 
the order card instead of filling it in by hand! 

• Quick Brown Box - Battery Backed RAM for C64 or 

C128. The Quick Brown Box cartridges for the C64 and 128 
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can be used to store any type of programs or data that remains 
intact even when the cartridge is unplugged. Unlike EPROM 
cartridges, the QBB requires no programming or erasing 
equipment except your computer. Loader programs are sup- 
plied and you can store as many programs into the cartridge 
as its memory will allow. It may even be used as a non- 
volatile RAM disk. AulO'Stan programs are supported such as 
BBS programs and software monitoring systems that need to 
re-boot themselves in the event of a power failure. All models 
come with a RESET push button and use low current CMOS 
RAM powered by a 160 mA-Hr. Lithium cell with an estimat- 
ed life of 7 to 10 years. Comes with manual; software sup- 
plied includes loader utilities and Supemiom4-64 (by permis- 
sion of Jim Buttertleld). 30 day money back guarantee and a 
1 year repair/replacement warranty, 

■ The Potpourri Disk - A C64 product from the software 
company AHA! {aka Chris Zamara and Nick Sullivan), In- 
cludes a wide assortment of ! S programs ranging from games 
10 educational programs to utilities. All programs can be ac- 
cessed from a main menu or loaded separately. No copy pro- 
tection is used on the disk so you can copy ihc pnjgrams you 
want to your other disks for easy access. Built-in help is 
available from any program at any lime with the touch of a 
key, so you never need to pick up a manual or exit a program 
to learn bow to use it. Many of the programs on the disk are 
of a high enough quality thai they could be released on their 
own, but you get all 18 on the Potpourri disk for just $17.95 
US/$19,95 Canadian. 

• TransBASIC II - TransBASIC 11 contains all TB modules 
ever printed. There are over 140 commands at your disposal; 
you pick the ones you want to use in any combination. It's so 
simple that a summary of instructions fits right on the disk la- 
bel. The manual describes each of the commands, plus how to 
write your own commands. People who ordered TB 1 can up- 
grade to TBIT for the price of a regular Transactor disk 
(8.95/9,95), If you are upgrading, please lei us know on the 
order form. 

• Inner Space Anthology - This is our ever-popular reference 
book. Il has no "reading'' material, but in 122 compact pages 
there are memory maps for five CBM computers, three disk 
drives and maps of COMAL; summaries of BASIC com- 
mands. Assembler and MLM commands and Wordprocessor 
and Spreadsheet commands. ML codes and modes are sum- 
marized, as well as entry points to ROM routines. There are 
sections on Music. Graphics, Network and BBS phone num- 
bers, Computer Clubs, Hardware^ unit-to-unit conversions, 
plus much more ... about 2,5 million characters in total! 

• The Transactor Bits and Pieces Book and Disk - 246 

pages of Bits from Transactor Volumes 4 through 6 with a 
very comprehensive index. Even if you have all those issues, 
it makes a handy reference - no more flipping through maga- 
zines for that one bit that you just know is somewhere .,. Al- 
so, each item if forward/reverse referenced- Occasionally the 
items in the Bits column appeared as updates to previous bits. 



Bits that were similar tn nature are also cross-rcfcrenccd. And 
the index makes it even easier to find those quick dps that 
eliminate a loi of wheel re-invcnting. The bits book disk con- 
tains all programs from the book and can save a lot of typing. 

• The G-Link Interface - The G-Link is a Commodore 64 to 
IEEE interface. It allows the 64 to use IEEE peripherals such 
as the 4040, 8050, 9090, 9060, 2031 and SFD-1001 disk 
drives, or any IEEE printer, modem or even some Hewlett- 
Packard and Teklronics equipment like oscilloscopes and 

spectrum analyzers. The beauty of the C-Link is its "trans- 
parency'* to the C64 operating sysiem. Some IEEE interfaces 
for the 64 add BASIC 4.0 commands and other things to the 
system that can interfere with utilities you might like to in- 
stall. The G-Link adds nothing: it is so transparent that a 
switch is used to toggle between serial and IEEE modes, not a 
linked-in command. Switching from one mode to the other is 
also possible with a small software routine as described in the 
documentation. 

• Transactor Disks - now with their new, colour directory 
listing labels. As of Disk #1 9 a modified version of Jim But- 
terfield*s Copy-All will be on every disk. It allows file copy- 
ing from serial to IEEE drives, or vice versa. 

• The Micro-Sleuth: C64/L541 Test Cartridge - Designed by 
Brian Steele (a service technician for several southern Ontario 
Schools), this is a very popular cartridge. The Micro-Sleuth 
will lest the RAM of a C64 even if the machine is too sick to 
run a program! The cartridge lakes complete control of ibe 
machine, tests all RAM, ROM and other chips, and in another 
mode puts up a menu: 



1) Check drive speed 

2) Check drive alignment 

3) 1541 serial test 

4) C64 serial (est 



5) Joystick port J test 

6) Joystick port 2 test 

7) Cassette port test 

8) User port test 



A second board (included) plugs onto the User Port: it con- 
tains 8 LEDs that let you zero in on the faulty chip. Complete 
with manual, 

• TVansactor Back Issues and Microfiche - All Transactors 
from Volume 4 Issue I are available on Microfiche. The strips 
are ihe 98 page size compatible with most fiche readers. 
Some issues are available only on microfiche and are marked 
as such on the order card. The price is the same as for the 
magazines with the exception that a complete set (Volumes 4, 
5, 6 and 7) will cost just $49.95 US/$59,95 CDN. 

This list shows the '"themes" of each issue. Theme issues 
didn't start until Volume 5 Issue L Transactor Disk #1 in- 
cludes all the programs from Volume 4 and Disk #2 includes 
all programs for Volume 5 Issues I to 3. Thereafter there is a 
separate disk for each issue. Disk #8 from the Languages Is- 
sue includes COMAL 0,14, a soft-loaded, slightly scakd 
down version of the COMAL 2.0 cartridge. Volume 6, Issue 5 
lists the directories for Transactor Disks #1 to #9. 
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• Vol.4 

• Vol.4 

• VoL5 

• Vol.5 

• Vol.5 

• Vol.5 

• Vol5 

• Vol.5 

• V0L6 

• V0I6 

• Vol.6 

• Vol.6 

• Vol.6 

• Vol.6 

• Vol.7 
' VoL7 

• Vol.7 

• Vol.7 

• Vol.7 

• Vol.7 

• Vol.8 

• Vol.8 

• Vol.8 

• Vol.8 

• V0L8 



Issues I 10 3 (Disk #1) 
Issues 4 to 6 (Disk. #1) - MF only 
Issue 1 - Sound and Graphics Disk # 2 

Issue 2- Transition to ML (MF only) # 2 

Issue 3- Piracy and Protection (MF only) # 2 

issue 4- Business and Eduction (MF only) # 3 

issue 5 - Hardware and Pcripherais # 4 

Issue 6 - Aids & Utdities # 5 

Issue I- More Aids <& Utilities # 6 

Issue 2- Networking & Communications # 7 

Issue 3 - The Languages # 8 

Issue 4- Implementing the Sciences # 9 

Issue 5- Hardware & Software Interfacing #10 

Issue 6- Real Life Applications #11 

Issue I - ROM/Kernel Routines #12 

Issue 2- Games from the Inside Out #13 

Issue 3 - Programming the Chips #14 

Issue 4- Gizmos and Gadgets #15 

Issue 5- Languages II #16 

Issue 6- Simulations & Modelling #J7 

Issue 1 - Mathemadcs #IS 

Issue 2- Operating Systems #19 

Issue 3- Feature; Surge Protector #20 

Issue 4- Feature: Transactor for the Amiga #21 

Issue 5' Feature: Binary Trees #22 



Industry News 

EPROM Programmer for the C64, C128 and 64C from B & 
B Products is a versatile programmer offered in an easy-to- 
assemble kit form or as a complete and tested system. The de- 
sign is based on the article by T, Bolbach featured in the Jan- 
uary 1987 issue of Transactor and contains many enhance- 
ments, including on-board selectable programming voltages, 
local reset switch, power transfonner and super-fast improved 
software. The programmer supports 27 1 6 through 27256-iype 
EPROMs and also programs the 68764 direct replacement 
types for the Kemal and BASIC ROMs, Documentation in- 
cludes the schematic- Complete kit with all parts $59.00 
(US). Completed and tested units, SM9.00 (US), Send cheque 
or money order tu: T. Boibach, 1575 Crestwood, Toledo, OH 
43612. 
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The Super Chips: New from Free Spirit Inc. is a custom 
operating system for ibe Commodore 128, The system con- 
sists of three 16K chips labelled Basic Lo, Basic Hi and Ker- 
nal which replace U33, U34 and U35 on the motherboard of 
the CI 28. The Super Chips add a variety of powerful new 
commands and functions to die CI 28 operating system in- 
cluding: Type, (Restore) D, Combine. Merge, File. Change, 
Find, * - Send monitor command to the printer, and Editor. 
When done, a Basic program can be compiled which can be 
incorporated into a program and/or saved to disk. The custom 
operating system also rcdefmes the function keys. 

In 80 column mode the F3/F4 keys will simultaneously dis- 
play the directories from devices ^ and 9 in separate windows 
on the screen. The operating system will default to fast mode 
when powered up or reset with the 40/80 display button 
down. It will default to slow in the 40 column mode. 

The Super Chips system is compatible with 1541/1571/1581 
disk drives and virtually all Commodore software and periph- 
erals. Similar systems will be available for the 128D and C64 
in the near future. 

Available at $49.95 from Joe Hubbard, Free Spirii Software 
Inc., 905 W. Hiilgrove, Suite 6, La Grange, IL 6052^ 
(312)352-7323. 

New Bask for GEOS: BeckerBASIC adds more than 270 
new commands and functions to the Commodore 64 and 

GEOS. It has commands for screen and cursor control, hi-res 

graphics and sprite animation, sound aud music, structured 
programming and programmers' aids. A program written in 
BeckerBASIC runs as a GEOS application and can use 
GEOS' pull-down menus, dialog boxes, different fonts, hi-res 
graphics and fill paiterns and more, 

BeckerBASIC can be customized by adding user-defined 
commands and function key definitions. The BeckerBASIC 
package includes a free run-time version so that BcckerBA- 
SIC applications may be distributed to other GEOS users. 
BeckerBASIC is compatible with Commodore 64 BASIC and 
GEOS Version 1.3. Tlie suggested retail price of BeckerBA- 
SIC is $49.95. 

Available from any Abacus dealer or distributor or call (616) 
698-0330. Abacus is at 5370 52nd Street SE, Grand Rapids, 
MI.. USA 49508. 

Science Software is a series of tutorial, utility and application 
computer programs in the aieas of Astronomy, Earth Satel- 
lites and Aeronautics. The Astronomy disk contains programs 
for detennining the position of the Sun, Moon, Planets and 
Stars. The Earth Satellite programs can be used to determine 
the location of TVRO, weather, OSCAR and other earth satel- 
lites. The Aeronautics disk contains programs for model rock- 
eiry, hot air balloons and gliders. Science Software disks are 
available for the Commodore 64/128 (in C64 mode) and the 
Amiga. For additional information contact David Eagle, Sci- 
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ence Software, 7370 S, Jay Street, Littleton, CO 80123 (303) 
972-4020. 

Poseidon Electronics announces an addendum to its catalog 
of disks for Commodore 64/128 CP/M users. The full catalog 
is available for $4J0 plus $0,90 SASE (please send a large 
(envelope) in limited quantities; the addendum costs SL60 
plus a $0.39 SASE. Poseidon have a large library of CP/M 
disks; for further inibrmation contact Ralph S, Lees Jr., Posei- 
don Electronics, 103 Waverley Place, New York, NY 10011 
{212)777-9515. 

RS-232 iiUerface for tht C64, C12S and Vic 20; Now you 

can connect a me RS-232 modem or printer to your 64 or 
128. This interface supports all the RS-232 control lines 
(DTR, RTS, SL RL CTS, DSR and DCD). Also, if you are us- 
ing a C128, the interface does not obstruct the 80 column 
video port. It uses only the +5 voh line from the computer 
and draws 30 milliamps of current. Tt is packaged as a 3 inch 
square PC board and terminated wiih a female DB-25 con- 
nector, at a cost of $55 (CDN). 

PET to Centronics interface: supports all standard Centron- 
ics style printers and is small enough to be left inside the PET 
iiself jumpered to the IEEE connector at the rear of the com- 
puter. Costs $50 (CDN)- 

Both interfaces come with a 90 day warranty. For further in- 
formation and orders contact Chris Czech, 227-7a Street, NE., 
Calgary, Alberta, Canada, T2E 4E7. (403} 262-3587 

Surge & Lightning Protection for datacommunications and 
computer interfaces described from analysis to solution. Tele- 
byte Technology's expanded line of surge and lightning pro- 
tection products is described in a six-page brochure together 
with explanations of the phenomena and the basic techniques 
for protection, A selection chart is included to simplify the 
process of choosing the best device and custom products are 
avaiiable. For further information contact Telebyte Technol- 
ogy Inc., 270E. Pulaski Road. Greenlawn, NY, USA. 11740 

(516) 423-3232 or (800) 835-3298, 

The Strategist for the Commodore 128 is a market timing 
program for investors in stocks, bonds, mutual funds and 
commodities. It allows the user to plot prices on the same 
chart as one or several market indicators so that he can pick 
the ones he wants to time his trades. There is an historical file 
which makes reahstic simulated trades to see how a strategy 
wouid have paid off in real life; it then repeats this, varying 
the strategy each time until it arrives at the one which gives 
the highest payoff. The system uses high-low trading en- 
hanced by the use of persistence checks to confirm buy and 
sell signals and an exponential moving average of quote to 
quote volatility. 

The Strategist master disk, an SO page manual and 90 day 
money-back guarantee cost $29.95. The system is copyright- 
ed and is distributed on a shareware basis. Purchasers may 



give, but not sell, copies to other users to try; if they like the 
program, those with iry-out copies should send $29.95 to 
Strategy Software in order to become registered users and ob- 
tain the latest version of the program and manual. For Com- 
mtjdore 128 users with a 1541 or 1571 disk drive; a printer is 
desirable but not essential. Dealer inquiries are welcome. A 
C64 version will soon be available at $24,95, Contact Strat- 
egy Software, 909 Carol Lane, Fairbanks, AK, USA, 99712 
(907)457-2294. 

New Telecommunications Software from Made in America: 

BananaTerm! offers all the standard features expected in a 
terminal program along with an advanced phone book, sup- 
port for up to 600 baud on standard 300 baud modems and 
custom character graphics. 

System 64! is a bulletin board system designed to run on stan- 
dard C64/128 systems. It creates an environment enabling 
communication between computers and modems for the ex- 
change of files and messages. It features ALEX programming 
language, customizable environment and support for up to 
600 baud on standard 300 baud modems. 

The two systems are complementary but are available sepa- 
rately and arc compatible with other telecommunications en- 
vironments. BananaTerm! costs $24.95 and System 64! costs 
$49,95 from Made in America, 9069 Sussex, Union Lake, 
ML, USA. 48085 (313) 698-2104. 

RomJet Custom Cartridges: 32K TO 256K RomJet car- 
tridges for C64 and C 1 28 modes are here. These cartridges let 
you access your favourite software instantly, via menus that 
are also in the cartridge. 

RomJet will install on its cartridges any Basic, compiled, or 
machine language non -copy -protected program, including 
programs such as Paperclip, Consultant, and WordPro, for 
which the copyright states that you, the proven legal purchas- 
er, can make a back-up copy for your own personal use. You 
must present to RomJet your original purchase receipt, or 
proof of purchase seal. 

Commercially sold programs belonging to companies or au- 
thors other than RomJet that have copy-protection and/or for 
which the copyright slates that you are not allowed to make a 
back-up copy for your own personal use cannot be put on a 
RomJet cartridge. 

Prices range from $32.00 (CDN) for 8K up to $196 for 256K 
cartridges. Cartridges may be upgraded to the next larger size 
for die difference in price. There are extra charges for car- 
tridges that require programmer's time (e,g, modifying a pro- 
gram that loads files from disk to work from the cartridge ex- 
clusively). 

Inquire at: RomJet, 210-2450 Shcppard Ave. E. Willowdale, 
Ontario M2J 4Z9. Phone (416) 274^7378 or 626-5959. 
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Hftlpl 




This HELPful utility gives you Instant 
menu-driven access to text flies 
at the touchi of a key - while any 
program Is runnlngl 



Loon Helper 



How much Is that loan really going 
to cost you? Which Interest rate 
con you afford? With Loan Helper 
the answers are as close as your 
friendly 641 



Keyboard 



Learning how to play the piano? 
This handy educational program 
makes It easy and fun to learn the 
Holes on the keyboard. 



Plledump 



Examine your disk files FAST with 
this machine languoge utility 

Handles six formats. Including hex, 
decimal CBM and true ASCIL 
WordPro and SpeedScrlpt. 



Anagrams 



Anagrams lets you unscramble 
words for crossword puzzles and 
the like. The program uses a recur- 
sive fvtL subroutine for maximum 
speed and eftlclercy. 



c 



Life 



A FAST machine languoge version 
of mathematician John Horton 
Conway's ck^aslc simulation. Set 
up your own 'colonies' and watch 
them growl 



Potpourri Disk 



War BaMoont 



Shoot down those evil Nazi War 
Ekilloons with your handy Acme 
ConnonI Don1 iet them get awoyl 



VonGoogol 



At lost! The mad philosopher, 
Helgo von Googol, brings her own 
brand of wisdom to the small 
screenl If this Is 'Al\ then It Just ain't 
not u rail 



Newi 



Save the money you spend on 
those supermarket tabloids - this 
program will generate equally 
convincing headline copy - for 
freel 



Wrd 



The ultimate In easy-to-use data 
base programs. WRD lets you 
quickly and simply create, exam* 

lr>e and edit lust about any data 
Comes with sample file, 



c 



«Ull 



Trivia fanatics arxj students alike 
will have fun with this program- 
which gives you multiple choice 
tests on material you have en- 
tered with the WRD program. 



AHAI Lander 



AHAI'a great lunar lander program. 
Use either joystick or keyboard to 
compete against yourself or up to 
8 other players. Watch out for 
space mine si 



r 



Bag the Elvei 



A cute little arcade-style game; 
capture the elves In the bog as 
quickly oa you can - but don't get 
the good elf I 



[ 



Blackjock 



The moat flexible blacklack simula- 
tion you'll find anywhere. Set up 
your favourite rule variations for 
doubling, surrendering and split- 
ting the deck. 



c 



File Compare 



Which of those two files you Just 
created la the moat recent ver- 
Blon? With this great utility you'll 
never be left wondering. 



Ohoul Dogs 



Arcade maniacs look outi You'll 
need all your dexterity to handle 

this wicked Joystick -busterl These 
mod dog-monsters from space 
are r>ot for novlcesi 



c 



Octogont 



r 



Just the thing for you Mensa types. 
Octagons Is a challenging puzzle 
of the mind, Four levels of play, 
and a tough 'memory' variation 
for real experts! 



Backstreett 



D 



A nifty arcade gome, 100% ma- 
chine languagen that helps you 
learn the typewriter keyboard 
while you playl Unlike any typing 
program you've seeni 



All the above programs, Just $17.95 US, $19.95 Canadian. No, not EACH of the 
above programs. ALL of the above programs, on a single disk, accessed 
independently or from a menu, with built-in menu-driven help and fast-loader. 

The ENTIRE POTPOURRI COLLECTION 

JUST $17.95 US!! 



Sm Older Card at Csntw 



April 14, 15, 16, 17, 1988 

Toronto International Centre 





THE MICROCOMPUTER 
SHOW FOR EVERYONE 



Prodtjcod by TTieHiotCM- Groioinc:. (4ir059&-5906 



